refactor: cursor positions

2026-05-02 09:56:31 +00:00 · 2022-07-05 01:10:01 +08:00
parent 18c378f1b9
commit 7c7312d830
5 changed files with 135 additions and 138 deletions
--- a/src/main/frontend/util/cursor.cljs
+++ b/src/main/frontend/util/cursor.cljs
@@ -111,9 +111,10 @@
 (defn beginning-of-line?
  [input]
  (let [[content pos] (get-input-content&pos input)]
-    (or (zero? pos)
-        (when-let [pre-char (subs content (dec pos) pos)]
-          (= pre-char \newline)))))
+    (when content
+      (or (zero? pos)
+         (when-let [pre-char (subs content (dec pos) pos)]
+           (= pre-char \newline))))))

 (defn move-cursor-to-line-end
  [input]