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

fix: handle left right move when selection

Browse Source
This commit is contained in:
Weihua Lu
2021-04-13 17:37:30 +08:00
committed by Tienson Qin
parent bc5f343cd5
commit f4ae38308e
1 changed files with 20 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1822,22 +1822,29 @@
(let [block (db/pull repo '[*] [:block/uuid (cljs.core/uuid sibling-block-id)])]
(edit-block! block pos format id)))))))
(defn- on-arrow-move-to-boundray
[input e direction]
(if (or (and (= :left direction) (util/input-start? input))
(and (= :right direction) (util/input-end? input)))
(move-to-block-when-cross-boundrary e direction)
;; move left or right
(if (= direction :left)
(util/cursor-move-back input 1)
(util/cursor-move-forward input 1))))
(defn keydown-arrow-handler
[direction]
(fn [e]
(let [input (state/get-input)]
(when-not (in-auto-complete? nil)
(on-arrow-move-to-boundray input e direction)))))
(when-not (in-auto-complete? nil)
(let [input (state/get-input)
selected-start (.-selectionStart input)
selected-end (.-selectionEnd input)
left? (= direction :left)
right? (= direction :right)]
(cond
(not= selected-start selected-end)
(if left?
(util/set-caret-pos! input selected-start)
(util/set-caret-pos! input selected-end))
(or (and left? (util/input-start? input))
(and right? (util/input-end? input)))
(move-to-block-when-cross-boundrary e direction)
:else
(if left?
(util/cursor-move-back input 1)
(util/cursor-move-forward input 1)))))))
(defn keydown-backspace-handler
[get-state-fn]