From 6eba3d4764baf51a02a0a79d7b729ea4105544b2 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Mon, 11 Apr 2016 22:30:51 +0300
Subject: [PATCH] Add improvements to form helpers.

---
 src/uxbox/ui/form.cljs | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/src/uxbox/ui/form.cljs b/src/uxbox/ui/form.cljs
index 6816007e0c..b517fe0948 100644
--- a/src/uxbox/ui/form.cljs
+++ b/src/uxbox/ui/form.cljs
@@ -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]