|
@@ -22,6 +22,8 @@
|
|
|
(fn [{:keys [entity dispatch-key]}]
|
|
(fn [{:keys [entity dispatch-key]}]
|
|
|
(let [entity (d/entity db (:db/id entity))]
|
|
(let [entity (d/entity db (:db/id entity))]
|
|
|
(cond
|
|
(cond
|
|
|
|
|
+ (:block/level entity)
|
|
|
|
|
+ [[:db/retract (:db/id entity) :block/level]]
|
|
|
;; missing :db/ident
|
|
;; missing :db/ident
|
|
|
(and (ldb/class? entity) (nil? (:db/ident entity)) (:block/title entity))
|
|
(and (ldb/class? entity) (nil? (:db/ident entity)) (:block/title entity))
|
|
|
[[:db/add (:db/id entity) :db/ident (db-class/create-user-class-ident-from-name db (:block/title entity))]]
|
|
[[:db/add (:db/id entity) :db/ident (db-class/create-user-class-ident-from-name db (:block/title entity))]]
|