|
|
@ -18,13 +18,13 @@
|
|
|
|
(spec/and fn? #(= 1 (->> % meta :arglists (map count) first))))
|
|
|
|
(spec/and fn? #(= 1 (->> % meta :arglists (map count) first))))
|
|
|
|
(spec/def ::to-form ::from-req)
|
|
|
|
(spec/def ::to-form ::from-req)
|
|
|
|
(spec/def ::field
|
|
|
|
(spec/def ::field
|
|
|
|
(spec/keys :req-un [::label
|
|
|
|
(spec/keys :req-un [::label]
|
|
|
|
::required
|
|
|
|
|
|
|
|
::spec]
|
|
|
|
|
|
|
|
:opt-un [::options
|
|
|
|
:opt-un [::options
|
|
|
|
::widget
|
|
|
|
::widget
|
|
|
|
::from-req
|
|
|
|
::from-req
|
|
|
|
::to-form]))
|
|
|
|
::to-form
|
|
|
|
|
|
|
|
::required
|
|
|
|
|
|
|
|
::spec]))
|
|
|
|
(spec/def ::fields
|
|
|
|
(spec/def ::fields
|
|
|
|
(spec/map-of keyword? ::field))
|
|
|
|
(spec/map-of keyword? ::field))
|
|
|
|
(spec/def ::form
|
|
|
|
(spec/def ::form
|
|
|
|