mirror of
https://github.com/logseq/logseq.git
synced 2026-04-27 23:54:55 +00:00
Wrap up carving
This commit is contained in:
@@ -115,13 +115,6 @@
|
||||
(when-let [pre-char (subs content (dec pos) pos)]
|
||||
(= pre-char \newline)))))
|
||||
|
||||
(defn end-of-line?
|
||||
[input]
|
||||
(let [[content pos] (get-input-content&pos input)]
|
||||
(or (= pos (count content))
|
||||
(when-let [next-char (subs content pos (inc pos))]
|
||||
(= next-char \newline)))))
|
||||
|
||||
(defn move-cursor-to-line-end
|
||||
[input]
|
||||
(move-cursor-to input (line-end-pos input)))
|
||||
@@ -130,10 +123,6 @@
|
||||
[input]
|
||||
(move-cursor-to input (line-beginning-pos input)))
|
||||
|
||||
(defn move-cursor-to-beginning
|
||||
[input]
|
||||
(move-cursor-to input 0))
|
||||
|
||||
(defn move-cursor-to-end
|
||||
[input]
|
||||
(let [pos (count (gobj/get input "value"))]
|
||||
|
||||
Reference in New Issue
Block a user