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

feat: left right enter edit mode

Browse Source
This commit is contained in:
Weihua Lu
2021-04-29 16:35:51 +08:00
committed by Tienson Qin
parent 7dd9e6349c
commit 4e1ebcd705
2 changed files with 49 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1980,7 +1980,7 @@
(util/move-cursor-down input)))))
(defn- move-to-block-when-cross-boundrary
[_ direction]
[direction]
(let [up? (= :left direction)
pos (if up? :max 0)
{:block/keys [format uuid] :as block} (state/get-edit-block)
@@ -2003,28 +2003,27 @@
(defn keydown-arrow-handler
[direction]
(fn [state e]
(let [input (state/get-input)
element js/document.activeElement
selected-start (.-selectionStart input)
selected-end (.-selectionEnd input)
left? (= direction :left)
right? (= direction :right)]
(when (= input element)
(cond
(not= selected-start selected-end)
(if left?
(util/set-caret-pos! input selected-start)
(util/set-caret-pos! input selected-end))
(let [input (state/get-input)
element js/document.activeElement
selected-start (.-selectionStart input)
selected-end (.-selectionEnd input)
left? (= direction :left)
right? (= direction :right)]
(when (= input element)
(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)
(or (and left? (util/input-start? input))
(and right? (util/input-end? input)))
(move-to-block-when-cross-boundrary direction)
:else
(if left?
(util/cursor-move-back input 1)
(util/cursor-move-forward input 1)))))))
:else
(if left?
(util/cursor-move-back input 1)
(util/cursor-move-forward input 1))))))
(defn keydown-backspace-handler
[cut? e]
@@ -2438,3 +2437,29 @@
:else
(select-first-last direction)))))
(defn open-selected-block!
[direction]
(when-let [block-id (some-> (state/get-selection-blocks)
first
(dom/attr "blockid")
medley/uuid)]
(let [block {:block/uuid block-id}
left? (= direction :left)]
(edit-block! block
(if left? 0 :max)
(:block/format block)
block-id))))
(defn shortcut-left-right [direction]
(fn [_]
(when-not (auto-complete?)
(cond
(state/editing?)
(keydown-arrow-handler direction)
(and (state/selection?) (== 1 (count (state/get-selection-blocks))))
(open-selected-block! direction)
:else
nil))))