user progress

src/cljs/auto_ap/forms.cljs

@@ -41,6 +41,11 @@
                                  :complete-listener complete-listener})
        (assoc-in [::status/status form] nil))))
 
+(re-frame/reg-event-db
+  ::start-form
+  (fn [db [_ id data]]
+    (start-form db id data)))
+
 (defn triggers-saved [form data-key]
   (i/->interceptor
    :id :triggers-saved
@@ -81,6 +86,11 @@
     db
     (partition 2 path-pairs))))
 
+(re-frame/reg-event-db
+  ::reset
+  (fn  [db [_ form v]]
+    (assoc-in db [::forms form :data] v)))
+
 (re-frame/reg-event-db
   ::visited
   (fn  [db [_ form & paths]]
@@ -90,7 +100,12 @@
 (re-frame/reg-event-db
   ::check-problems
   (fn  [db [_ form schema]]
-    (println "Checking problems")
+    (println "Checking problems"
+             form
+             (get-in db [::forms form :data])
+             (keys (get-in db [::forms]))
+             schema
+             (m/explain schema (get-in db [::forms form :data])))
     (assoc-in db [::forms form :problems]
               (when schema (m/explain schema (get-in db [::forms form :data]))))))
 
@@ -116,6 +131,7 @@
 (re-frame/reg-event-db
  ::save-error
  (fn  [db [_ form result]]
+   (println result)
    (-> db
        (assoc-in [::forms form :status] :error)
        (assoc-in [::forms form :error] (or (:message (first result))