clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-04 02:46:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: selection scroll

Browse Source
This commit is contained in:
Weihua Lu
2021-04-19 23:32:24 +08:00
parent 407d93e5ca
commit 99daaeb7ba
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/main/frontend/handler/editor.cljs
View File

@@ -617,7 +617,7 @@
(defn- get-prev-block-non-collapsed
[block]
(when-let [blocks (util/get-blocks-in-viewpoint)]
(when-let [blocks (util/get-blocks-noncollapse)]
(when-let [index (.indexOf blocks block)]
(let [idx (dec index)]
(when (>= idx 0)
@@ -625,7 +625,7 @@
(defn- get-next-block-non-collapsed
[block]
(when-let [blocks (util/get-blocks-in-viewpoint)]
(when-let [blocks (util/get-blocks-noncollapse)]
(when-let [index (.indexOf blocks block)]
(let [idx (inc index)]
(when (>= (count blocks) idx)
@@ -1905,9 +1905,10 @@
"Select first or last block in viewpoint"
[direction]
(let [f (case direction :up last :down first)
block (->> (util/get-blocks-in-viewpoint)
block (->> (util/get-blocks-noncollapse)
(f))]
(when block
(.scrollIntoView block #js {:behavior "smooth" :block "center"})
(exit-editing-and-set-selected-blocks! [block]))))
(defn- select-up-down [direction]
@@ -1918,6 +1919,7 @@
sibling-block (f selected)]
(when (and sibling-block (dom/attr sibling-block "blockid"))
(clear-selection! nil)
(.scrollIntoView sibling-block #js {:behavior "smooth" :block "center"})
(exit-editing-and-set-selected-blocks! [sibling-block]))))
(defn- move-cross-boundrary-up-down