|
|
@ -14,7 +14,7 @@
|
|
|
|
[:span.flash__pred (:pred prob)]])
|
|
|
|
[:span.flash__pred (:pred prob)]])
|
|
|
|
(:clojure.spec.alpha/problems spec-data))))
|
|
|
|
(:clojure.spec.alpha/problems spec-data))))
|
|
|
|
|
|
|
|
|
|
|
|
(defn field [req form-def field]
|
|
|
|
(defn field [form-def field req]
|
|
|
|
(let [field-value (get-in req [:params field])
|
|
|
|
(let [field-value (get-in req [:params field])
|
|
|
|
field-def (get-in form-def [:fields field])
|
|
|
|
field-def (get-in form-def [:fields field])
|
|
|
|
{:keys [label required] spec-key :spec} field-def
|
|
|
|
{:keys [label required] spec-key :spec} field-def
|
|
|
|