Simplifies a lot by using cursors
This commit is contained in:
@@ -122,5 +122,13 @@ c.clearChoices();
|
||||
(field-errors- {:source (:error-source params)
|
||||
:key (:error-key params)}))])
|
||||
|
||||
(defn errors- [{:keys [errors]}]
|
||||
[:p.mt-2.text-xs.text-red-600.dark:text-red-500.h-4 (str/join ", " errors)])
|
||||
|
||||
(defn validated-field- [params & rest]
|
||||
(field- (dissoc params :errors)
|
||||
rest
|
||||
(errors- {:errors (:errors params)})))
|
||||
|
||||
(defn hidden- [{:keys [name value]}]
|
||||
[:input {:type "hidden" :value value :name name}])
|
||||
|
||||
Reference in New Issue
Block a user