fix(rtc): update :block/alias :block/tags attrs

pull/10933/head
rcmerci 2024-02-06 21:57:38 +08:00
parent 00f98be415
commit ab5deac9c3
1 changed files with 2 additions and 12 deletions

View File

@ -310,19 +310,9 @@
:db/id)))
*other-tx-data (atom [])]
;; 'save-block' dont handle card-many attrs well?
(when (and (contains? key-set :alias)
(some->> (seq (:alias op-value))
(map (partial vector :block/uuid))
(d/pull-many @conn [:db/id])
(keep :db/id)
seq))
(when (contains? key-set :alias)
(swap! *other-tx-data conj [:db/retract db-id :block/alias]))
(when (and (contains? key-set :tags)
(some->> (seq (:tags op-value))
(map (partial vector :block/uuid))
(d/pull-many @conn [:db/id])
(keep :db/id)
seq))
(when (contains? key-set :tags)
(swap! *other-tx-data conj [:db/retract db-id :block/tags]))
(when (seq @*other-tx-data)
(ldb/transact! conn @*other-tx-data {:persist-op? false}))