just some refactoring for action-dialogue.

src/cljs/auto_ap/events.cljs

@@ -69,6 +69,16 @@
    (println company)
    (assoc db :company (:id company))))
 
+(re-frame/reg-event-db
+ ::modal-status
+ (fn  [db [_ id  state]]
+   (update-in db [:modal-state id] #(merge % state))))
+
+(re-frame/reg-event-db
+ ::modal-completed
+ (fn  [db [_ id  state]]
+   (update-in db [:modal-state] #(dissoc % id))))
+
 (re-frame/reg-event-fx
  ::set-active-page
  (fn  [{:keys [db]} [_ handler]]