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

fix: wrong cross boundary due to caret_pos bug

Browse Source
This commit is contained in:
Weihua Lu
2021-06-09 11:48:19 +08:00
committed by Tienson Qin
parent 237f4d9e1a
commit 5b119ea990
2 changed files with 38 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,7 +1,5 @@
(ns frontend.util.cursor
(:require ["/frontend/caret_pos" :as caret-pos]
[cljs-bean.core :as bean]
[clojure.string :as string]
(:require [clojure.string :as string]
[frontend.util :as util]
[goog.dom :as gdom]
[goog.object :as gobj]))
@@ -24,12 +22,17 @@
(defn- get-caret-pos
[input]
(when input
(let [pos (.-selectionStart input)]
(try
(let [pos ((gobj/get caret-pos "position") input)]
(bean/->clj pos))
(catch js/Error e
(js/console.error e)))))
(-> (gdom/getElement "mock-text")
gdom/getChildren
array-seq
(nth pos)
mock-char-pos)
(catch js/Error _e
{:pos pos
:left js/Number.MAX_SAFE_INTEGER
:top js/Number.MAX_SAFE_INTEGER}))))
(defn move-cursor-to [input n]
(.setSelectionRange input n n))
@@ -92,14 +95,37 @@
inc))]
(move-cursor-to input idx)))
(defn textarea-cursor-first-row? [input]
(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]
(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]
(let [elms (-> (gdom/getElement "mock-text")
gdom/getChildren
array-seq)
cusor (-> input
(get-caret-pos)
(select-keys [:left :top :pos]))
(get-caret-pos))
chars (->> elms
(map mock-char-pos)
(group-by :top))