more migrating onto v2

src/cljs/auto_ap/forms.cljs

@@ -2,7 +2,8 @@
   (:require [re-frame.core :as re-frame]
             [re-frame.interceptor :as i]
             [auto-ap.status :as status]
-            [auto-ap.views.utils :refer [dispatch-event bind-field]]))
+            [auto-ap.views.utils :refer [dispatch-event bind-field]]
+            [malli.core :as m]))
 
 
 (re-frame/reg-sub
@@ -85,6 +86,14 @@
   (fn  [db [_ form & paths]]
     (update-in db [::forms form :visited] (fn [v]
                                             (set (into v paths))))))
+
+(re-frame/reg-event-db
+  ::check-problems
+  (fn  [db [_ form schema]]
+    (println "Checking problems")
+    (assoc-in db [::forms form :problems]
+              (when schema (m/explain schema (get-in db [::forms form :data]))))))
+
 (re-frame/reg-event-db
   ::attempted-submit
   (fn  [db [_ form & paths]]