fix eval results clearing

.calva/output-window/output.calva-repl

@@ -417,3 +417,74 @@ clj꞉user꞉>
   #object[sci.impl.fns$fun$arity_0__7874 0xa7f89b1 "sci.impl.fns$fun$arity_0__7874@a7f89b1"]>
 
 clj꞉user꞉> 
+; : java.lang.String cannot be cast to java.util.regex.Pattern user 
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map in" "c (range 8)))"]
+
+clj꞉user꞉> 
+"[\"(def u 7)\" \"\\n\\n(defn t []\\n  (map in\" \"c (range 8)))\"]"
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map in" "c (range 8)))"]
+
+clj꞉user꞉> 
+"(def u 7) => #'user/u\n\n(defn t []\n  (map in => c (range 8)))"
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map in" "c (range 8)))"]
+
+clj꞉user꞉> 
+("(def u 7)" "#'user/u\n\n(defn t []\n  (map in" "c (range 8)))")
+
+clj꞉user꞉> 
+"#'user/u\n\n(defn t []\n  (map in"
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map inc (range 8)))"]
+
+clj꞉user꞉> 
+("(def u 7)" "#'user/u\n\n(defn t []\n  (map inc (range 8)))")
+
+clj꞉user꞉> 
+"#'user/u\n\n(defn t []\n  (map inc (range 8)))"
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map inc (range 8)))"]
+
+clj꞉user꞉> 
+"[\"(def u 7)\" \"\\n\\n(defn t []\\n  (map inc (range 8)))\"]"
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map inc (range 8)))"]
+
+clj꞉user꞉> 
+"\n\n(defn t []\n  (map inc (range 8)))"
+
+clj꞉user꞉> 
+" => "
+
+clj꞉user꞉> 
+"\n\n(defn t []\n  (map inc (range 8)))"
+
+clj꞉user꞉> 
+"[\"(def u 7)\" \"\\n\\n(defn t []\\n  (map inc (range 8)))\"]"
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map inc (range 8)))"]
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map inc (range 8)))"]
+
+clj꞉user꞉> 
+["(def u 7)" "#'user/u\n\n(defn t []\n  (map inc (range 8)))"]
+
+clj꞉user꞉> 
+"\n\n(defn t []\n  (map inc (range 8)))"
+
+clj꞉user꞉> 
+"(def u 7)\n\n(defn t []\n  (map inc (range 8)))"
+
+clj꞉user꞉> 
+"(def u 7)\n\n(defn t []\n  (map inc (range 8)))"
+
+clj꞉user꞉> 

resources/public/cljs/codemirror.cljs

@@ -61,16 +61,15 @@
   true)
 
 (defn clear-eval []
-  (when (not= "" @last-result)
+  (let [code       (some-> cm .-state .-doc str)
-    (reset! last-result "")
+        cursor-pos (some-> cm .-state .-selection .-main .-head)
-    (let [code (-> cm
+        result     @last-result
-                   (some-> .-state .-doc str)
+        splits     (str/split code #" => ")]
-                   str
+     (when (not= "" @last-result)
-                   (str/split #" => ")
+       (update-editor! (str (first splits) (subs (last splits) (count (str (:result result))))) 
-                   first
+                      cursor-pos)
-                   (str @eval-tail))
+       (reset! last-result "")
-          cursor-pos (some-> cm .-state .-selection .-main .-head)]
+       (reset! eval-tail ""))))
-      (update-editor! code (min cursor-pos (count code))))))
 
 (def extension
   (.of js/cv.keymap
@@ -85,7 +84,10 @@
                   {:key "ArrowRight" :run clear-eval}])))
 
 (def cm
-  (let [doc "(map inc (range 8))"]
+  (let [doc "(def n 7)
+
+(defn t []
+  (map inc (range n)))"]
     (js/cm.EditorView. #js {:doc doc
                             :extensions #js [js/cm.basicSetup, (js/lc.clojure), (.highest js/cs.Prec extension)]
                             :parent (js/document.querySelector "#app")})))
@@ -94,6 +96,8 @@
 
 ;; what is top-level, anyway?
 
+(def u 7)
+
 (defn t []
   (map inc (range 8)))
 
@@ -106,4 +110,6 @@
 ;; we parse until we are not enclosed in a form.
 
 ;; pretty simple, actually.
-;; the contents of the cell are a series of forms.
+;; the contents of the cell are a series of forms.
+;; evaluate the last one! 
+;; that is, before the cursor