clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-06-01 19:01:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

move retract handler to normalize

Browse Source
This commit is contained in:
Tienson Qin
2026-01-10 00:43:31 +08:00
parent 3fbd1c842e
commit 2dde10531f
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/main/frontend/worker/worker_sync.cljs
View File

@@ -105,24 +105,11 @@
(when (ws-open? ws)
(.send ws (js/JSON.stringify (clj->js message)))))
(defn- replace-attr-retract-with-retract-entity
[tx-data]
(let [e-datoms (group-by first tx-data)]
(mapcat
(fn [[_e datoms]]
(if-let [d (some (fn [d]
(when (and (= :block/uuid (:a d)) (false? (:added d)))
d)) datoms)] ; retract entity
[[:db.fn/retractEntity [:block/uuid (:v d)]]]
datoms))
e-datoms)))
(defn- normalize-tx-data [db-after db-before tx-data]
(->> tx-data
(remove (fn [[_e a _v _t _added]]
(contains? #{:block/tx-id :logseq.property/created-by-ref
:logseq.property.embedding/hnsw-label-updated-at} a)))
replace-attr-retract-with-retract-entity
(db-normalize/normalize-tx-data db-after db-before)))
(defn- parse-message [raw]