clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-29 23:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance(rtc): simpler way to sort datoms

Browse Source
This commit is contained in:
rcmerci
2023-11-01 23:14:03 +08:00
parent 7752a8f75f
commit bfc08e7326
1 changed files with 4 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/main/frontend/db/rtc/db_listener.cljs
View File

@@ -155,23 +155,12 @@
(prn ::add-ops ops)
(<! (op/<add-ops! repo ops))))))))
(defn- sort-entity-datoms-coll
[entity-datoms-coll]
(let [id->datoms
(into {}
(keep (fn [datoms]
(when-let [e (ffirst datoms)]
[e datoms])))
entity-datoms-coll)]
(mapv second (sort-by first < id->datoms))))
(defn generate-rtc-ops
[repo db-before db-after datoms]
(let [same-entity-datoms-coll (->> datoms
(map vec)
(group-by first)
vals
sort-entity-datoms-coll)
(let [datom-vec-coll (map vec datoms)
id->same-entity-datoms (group-by first datom-vec-coll)
id-order (distinct (map first datom-vec-coll))
same-entity-datoms-coll (map id->same-entity-datoms id-order)
ops (mapcat (partial entity-datoms=>ops repo db-before db-after) same-entity-datoms-coll)]
(when (seq ops)
(swap! *ops-pending-to-store conj {:ops ops :repo repo}))))