greatly simplifying how states are handled.

src/cljs/auto_ap/status.cljs

@@ -43,6 +43,11 @@
  (fn [db [_ multi]]
    (get-in db [::status multi])))
 
+(re-frame/reg-sub
+ ::single
+ (fn [db [_ single]]
+   (get-in db [::status single])))
+
 (re-frame/reg-event-db
  ::loading-multi
  [(re-frame/path [::status]) ]
@@ -66,3 +71,24 @@
 
 (defn reset-multi [db multi]
   (assoc-in db [::status multi] {}))
+
+(re-frame/reg-event-db
+ ::loading
+ [(re-frame/path [::status]) ]
+ (fn [db [_ single]]
+   (assoc db single {:state :loading
+                     :error nil})))
+
+(re-frame/reg-event-db
+ ::completed
+ [(re-frame/path [::status]) ]
+ (fn [db [_ single which]]
+   (assoc db single {:state nil
+                     :error nil})))
+
+(re-frame/reg-event-db
+ ::error
+ [(re-frame/path [::status]) ]
+ (fn [db [_ single error]]
+   (assoc db single {:state :error
+                     :error error})))