|
|
@@ -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}))
|