johanels/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-12-12 06:24:17 +01:00
Code Issues Actions 9 Packages Projects Releases Wiki 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
1 changed files with 11 additions and 7 deletions
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]