Supports editing expense accounts

src/cljs/auto_ap/forms.cljs

@@ -29,13 +29,17 @@
                                :id (random-uuid)
                                :status nil
                                :data data}))
+
+(defn saved-form [db form data]
+  (update-in db [::forms form]
+             assoc :error nil :status nil :data data))
+
 (defn stop-form [db form]
   (update db ::forms dissoc form))
 
 (re-frame/reg-event-db
  ::form-closing
  (fn  [db [_ f]]
-   
    (-> db
        (stop-form f))))
 
@@ -56,7 +60,6 @@
 (re-frame/reg-event-db
  ::save-error
  (fn  [db [_ form result]]
-   
    (-> db
        (assoc-in [::forms form :status] :error)
        (assoc-in [::forms form :error] (or (:message (first result))