forms2.clj

forms2.clj

(re-frame/reg-sub
 :valid-required?
 (fn [db [_ value]]
   (if (string/blank? value)
     [false "This field is required."]
     [true])))

(re-frame/reg-sub
 :valid-form?
 (fn [[_ form fields]]
   (->> fields
        (get-validation-subs form)
        (map re-frame/subscribe)
        (doall)))

 (fn [validations _]
   (every? true? (map first validations))))