|
|
@ -14,7 +14,7 @@
|
|
|
|
(spec/or :empty empty?
|
|
|
|
(spec/or :empty empty?
|
|
|
|
:options (spec/coll-of (spec/tuple string? string?))))
|
|
|
|
:options (spec/coll-of (spec/tuple string? string?))))
|
|
|
|
(spec/def ::widget
|
|
|
|
(spec/def ::widget
|
|
|
|
#(in? [:input :select :checkbox :textarea :mselect] %))
|
|
|
|
#{:input :select :checkbox :textarea :mselect :hidden})
|
|
|
|
(spec/def ::from-req
|
|
|
|
(spec/def ::from-req
|
|
|
|
(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)
|
|
|
|