clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-03 18:36:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: moving the focus up and down doesn't work properly

Browse Source 
related to https://github.com/logseq/db-test/issues/302
This commit is contained in:
Tienson Qin
2025-06-12 04:08:17 +08:00
parent 00f6662f73
commit 47cc2c998e
1 changed files with 24 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/main/frontend/handler/block.cljs
View File

@@ -265,18 +265,30 @@
last)]
(get-original-block-by-dom last-block-node)))))
(defn indent-outdent-blocks!
[blocks indent? save-current-block]
(when (seq blocks)
(let [blocks (get-top-level-blocks blocks)]
(ui-outliner-tx/transact!
{:outliner-op :move-blocks
:real-outliner-op :indent-outdent}
(when save-current-block (save-current-block))
(outliner-op/indent-outdent-blocks! (get-top-level-blocks blocks)
indent?
{:parent-original (get-first-block-original)
:logical-outdenting? (state/logical-outdenting?)})))))
(let [*timeout (atom nil)]
(defn indent-outdent-blocks!
[blocks indent? save-current-block]
(when-let [timeout *timeout]
(js/clearTimeout timeout))
(when (seq blocks)
(let [blocks-container (when-let [first-selected-node (first (state/get-selection-blocks))]
(util/rec-get-blocks-container first-selected-node))
blocks' (get-top-level-blocks blocks)]
(p/do!
(ui-outliner-tx/transact!
{:outliner-op :move-blocks
:real-outliner-op :indent-outdent}
(when save-current-block (save-current-block))
(outliner-op/indent-outdent-blocks! (get-top-level-blocks blocks')
indent?
{:parent-original (get-first-block-original)
:logical-outdenting? (state/logical-outdenting?)}))
(when blocks-container
;; Update selection nodes to be the new ones
(reset! *timeout
(js/setTimeout
#(state/set-selection-blocks! (dom/sel blocks-container ".ls-block.selected") :down)
100))))))))
(def *swipe (atom nil))