|
|
@ -118,7 +118,8 @@
|
|
|
|
(list
|
|
|
|
(list
|
|
|
|
(when (and validate? (not (spec/valid? spec req-value)))
|
|
|
|
(when (and validate? (not (spec/valid? spec req-value)))
|
|
|
|
(spec-to-errmsg label spec req-value))
|
|
|
|
(spec-to-errmsg label spec req-value))
|
|
|
|
(hform/label id label)
|
|
|
|
(when-not (= :hidden widget)
|
|
|
|
|
|
|
|
(hform/label id label))
|
|
|
|
(renderer id def (if validate? req-value value)))))
|
|
|
|
(renderer id def (if validate? req-value value)))))
|
|
|
|
|
|
|
|
|
|
|
|
(defn form-hash [def values]
|
|
|
|
(defn form-hash [def values]
|
|
|
|