clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-30 17:06:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

enhance(edit): add smooth-select action

Browse Source
This commit is contained in:
kkkiio
2022-04-19 19:33:49 +08:00
committed by Tienson Qin
parent 8ec93205b4
commit 140fe27ad7
5 changed files with 106 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
src/main/frontend/util/cursor.cljs
View File

@@ -28,23 +28,23 @@
where offset position is needed.
If you only need character position, use `pos` instead. Do NOT call this."
[input]
(when input
(let [pos (util/get-selection-start input)
rect (bean/->clj (.. input (getBoundingClientRect) (toJSON)))]
(try
(some-> (gdom/getElement "mock-text")
gdom/getChildren
array-seq
(util/nth-safe pos)
mock-char-pos
(assoc :rect rect))
(catch :default _e
(js/console.log "index error" _e)
{:pos pos
:rect rect
:left js/Number.MAX_SAFE_INTEGER
:top js/Number.MAX_SAFE_INTEGER})))))
([input] (get-caret-pos input (util/get-selection-start input)))
([input pos]
(when input
(let [rect (bean/->clj (.. input (getBoundingClientRect) (toJSON)))]
(try
(some-> (gdom/getElement "mock-text")
gdom/getChildren
array-seq
(util/nth-safe pos)
mock-char-pos
(assoc :rect rect))
(catch :default _e
(js/console.log "index error" _e)
{:pos pos
:rect rect
:left js/Number.MAX_SAFE_INTEGER
:top js/Number.MAX_SAFE_INTEGER}))))))
(defn pos [input]
@@ -171,42 +171,42 @@
inc))]
(move-cursor-to input idx)))
(defn textarea-cursor-first-row? [input]
(defn textarea-cursor-rect-first-row? [cursor]
(let [elms (-> (gdom/getElement "mock-text")
gdom/getChildren
array-seq)
cursor (-> input
(get-caret-pos))
tops (->> elms
(map mock-char-pos)
(map :top)
(distinct))]
(= (first tops) (:top cursor))))
(defn textarea-cursor-last-row? [input]
(defn textarea-cursor-first-row? [input]
(textarea-cursor-rect-first-row? (get-caret-pos input)))
(defn textarea-cursor-rect-last-row? [cursor]
(let [elms (-> (gdom/getElement "mock-text")
gdom/getChildren
array-seq)
cursor (-> input
(get-caret-pos))
tops (->> elms
(map mock-char-pos)
(map :top)
(distinct))]
(= (last tops) (:top cursor))))
(defn- move-cursor-up-down
[input direction]
(defn textarea-cursor-last-row? [input]
(textarea-cursor-rect-last-row? (get-caret-pos input)))
(defn- next-cursor-pos-up-down [direction cursor]
(let [elms (-> (gdom/getElement "mock-text")
gdom/getChildren
array-seq)
cusor (-> input
(get-caret-pos))
chars (->> elms
(map mock-char-pos)
(group-by :top))
tops (sort (keys chars))
tops-p (partition-by #(== (:top cusor) %) tops)
tops-p (partition-by #(== (:top cursor) %) tops)
line-next
(if (= :up direction)
(-> tops-p first last)
@@ -214,14 +214,18 @@
lefts
(->> (get chars line-next)
(partition-by (fn [char-pos]
(<= (:left char-pos) (:left cusor)))))
(<= (:left char-pos) (:left cursor)))))
left-a (-> lefts first last)
left-c (-> lefts last first)
closer
(if (> 2 (count lefts))
left-a
(closer left-a cusor left-c))]
(move-cursor-to input (:pos closer))))
(closer left-a cursor left-c))]
(:pos closer)))
(defn- move-cursor-up-down
[input direction]
(move-cursor-to input (next-cursor-pos-up-down direction (get-caret-pos input))))
(defn move-cursor-up [input]
(move-cursor-up-down input :up))
@@ -229,6 +233,12 @@
(defn move-cursor-down [input]
(move-cursor-up-down input :down))
(defn select-up-down [input direction anchor cursor-rect]
(let [next-cursor (next-cursor-pos-up-down direction cursor-rect)]
(if (<= anchor next-cursor)
(.setSelectionRange input anchor next-cursor "forward")
(.setSelectionRange input next-cursor anchor "backward"))))
(comment
;; previous implementation of up/down
(defn move-cursor-up