|
|
@ -121,7 +121,7 @@
|
|
|
|
:select select-widget
|
|
|
|
:select select-widget
|
|
|
|
:mselect multiselect-widget})
|
|
|
|
:mselect multiselect-widget})
|
|
|
|
|
|
|
|
|
|
|
|
(defn widget
|
|
|
|
(defn widget-markup
|
|
|
|
[id def value req-value validate?]
|
|
|
|
[id def value req-value validate?]
|
|
|
|
(let [{:keys [label spec widget options]} def
|
|
|
|
(let [{:keys [label spec widget options]} def
|
|
|
|
widget (cond (some? widget) widget
|
|
|
|
widget (cond (some? widget) widget
|
|
|
@ -147,7 +147,7 @@
|
|
|
|
(let [{:keys [options to-form]} field-def
|
|
|
|
(let [{:keys [options to-form]} field-def
|
|
|
|
value (field-id values)
|
|
|
|
value (field-id values)
|
|
|
|
req-value (get-in req [:params field-id])]
|
|
|
|
req-value (get-in req [:params field-id])]
|
|
|
|
(widget field-id
|
|
|
|
(widget-markup field-id
|
|
|
|
field-def
|
|
|
|
field-def
|
|
|
|
(if to-form (to-form value) value)
|
|
|
|
(if to-form (to-form value) value)
|
|
|
|
req-value
|
|
|
|
req-value
|
|
|
|