Wrap up carving

This commit is contained in:
Gabriel Horner
2022-01-27 14:13:42 -05:00
parent 86868f1e15
commit 1c8586e2ac
12 changed files with 11 additions and 425 deletions

View File

@@ -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"))]