3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-02 06:31:37 +02:00
Code Issues Projects Releases Packages 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
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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