Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-15 11:38:24 -05:00
Code Issues Activity

Add improvements to form helpers.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-11 22:30:51 +03:00
parent 3d79367078
commit 6eba3d4764
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/uxbox/ui/form.cljs
View file

@ -4,17 +4,21 @@
(defn validate!
[local schema]
(if-let [errors (sc/validate schema @local)]
(swap! local assoc :errors errors)
(swap! local assoc :errors nil)))
(let [[errors data] (sc/validate (:form @local) schema)]
(if errors
(do
(swap! local assoc :errors errors)
nil)
(do
(swap! local assoc :errors nil)
data))))
(defn input-error
[local name]
(when-let [errors (get-in @local [:errors name])]
[:div.errors
[:ul {}
(for [error errors]
[:li error])]]))
[:ul.form-errors
(for [error errors]
[:li {:key error} error])]))
(defn error-class
[local name]