From ea61ff32df7ddb6c02f7f521f58625dddf065b09 Mon Sep 17 00:00:00 2001
From: Daniel Bell <daniel@yetanalytics.com>
Date: Mon, 23 Mar 2026 20:15:53 -0500
Subject: [PATCH] retains cursor position even when resetting text

---
 src/cljs/re_codemirror/core.cljs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/cljs/re_codemirror/core.cljs b/src/cljs/re_codemirror/core.cljs
index 5faab24..f042f93 100644
--- a/src/cljs/re_codemirror/core.cljs
+++ b/src/cljs/re_codemirror/core.cljs
@@ -25,7 +25,11 @@
   [this cm _]
   (let [{:keys [value]} (conf this)]
     (when-not (= value (.getValue cm))
-      (.setValue cm value))))
+      (let [doc (.getDoc cm)
+            from (.getCursor doc "from")
+            to (.getCursor doc "to")]
+      (.setValue cm value)
+      (.setSelection dock from to)))))
 
 (defn codemirror
   []