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

fix: WIP broken undo/redo for long page

Browse Source
This commit is contained in:
Tienson Qin
2022-07-14 15:10:35 +08:00
parent d271b85a51
commit d40c0d8926
7 changed files with 44 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/main/frontend/db/react.cljs
View File

@@ -70,15 +70,27 @@
;; component -> query-key
(defonce query-components (atom {}))
(defn- with-block-start-end
[result-atom new-result]
(let [block? (and (coll? @result-atom) (map? (first @result-atom)) (:block/uuid (first @result-atom)))
[start end] (when block?
[(first @result-atom)
(last @result-atom)])
new-result (if block? (util/distinct-by-last-wins :block/uuid new-result) new-result)]
(with-meta new-result {:start (select-keys start [:db/id :block/uuid :block/content])
:end (select-keys end [:db/id :block/uuid :block/content])})))
(defn set-new-result!
[k new-result]
(when-let [result-atom (get-in @query-state [k :result])]
(reset! result-atom new-result)))
(let [new-result' (with-block-start-end result-atom new-result)]
(reset! result-atom new-result'))))
(defn swap-new-result!
[k f]
(when-let [result-atom (get-in @query-state [k :result])]
(swap! result-atom f)))
(let [new-result' (with-block-start-end result-atom (f @result-atom))]
(reset! result-atom new-result'))))
(defn kv
[key value]