more standardization

src/cljs/auto_ap/views/pages/data_page.cljs

@@ -22,12 +22,18 @@
                 (let [checked (or checked #{})]
                   (disj checked to-remove))))))
 
+(re-frame/reg-event-db
+ ::reset-checked
+ (fn [db [_ id]]
+   
+   (update db ::checked dissoc id)))
+
 (re-frame/reg-event-db
  ::updated-entity
  (fn [db [_ id entity]]
    (update-in db
-              [::data id]
-              replace-by :id (assoc entity :class "live-added"))))
+              [::data id :data]
+              replace-by :id (update entity :class #(or % "live-added")))))
 
 (re-frame/reg-event-db
  ::received
@@ -62,13 +68,3 @@
 (defn in-page-entities [which]
   (re-frame/path [::data which :data ] ))
 
-(re-frame/reg-event-db
- ::entity-updated
- (fn [db [_ which [_ entity] :as g]]
-   (println g)
-   (update-in db [::data which :data]
-              (fn [entities]
-                (let [by-id (by :id entities )]
-                  (if (by-id (:id entity))
-                    (merge-by entities :id entity)
-                    (into [entity] entities)))))))