From c9f78008e2c1d212eb9658339f2decd98fad95d8 Mon Sep 17 00:00:00 2001
From: Bobby Towers <porkostomus@mail.com>
Date: Sat, 15 Apr 2023 16:15:27 -0700
Subject: [PATCH] implement eval-cell

---
 .calva/output-window/output.calva-repl |  4 ++++
 resources/public/cljs/codemirror.cljs  | 25 +++++++++++++++++++++++--
 2 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/.calva/output-window/output.calva-repl b/.calva/output-window/output.calva-repl
index e2b0b74..a763b54 100644
--- a/.calva/output-window/output.calva-repl
+++ b/.calva/output-window/output.calva-repl
@@ -413,3 +413,7 @@ clj꞉user꞉> 
 clj꞉user꞉> 
 ; : No reader function for tag js user 
 clj꞉user꞉> 
+#<SciVar@36daf97e: 
+  #object[sci.impl.fns$fun$arity_0__7874 0xa7f89b1 "sci.impl.fns$fun$arity_0__7874@a7f89b1"]>
+
+clj꞉user꞉> 
diff --git a/resources/public/cljs/codemirror.cljs b/resources/public/cljs/codemirror.cljs
index 7eacf86..e64500f 100644
--- a/resources/public/cljs/codemirror.cljs
+++ b/resources/public/cljs/codemirror.cljs
@@ -33,7 +33,7 @@
 
 (defn eval-at-cursor [viewer]
   (let [cursor-pos (some-> cm .-state .-selection .-main .-head)
-        code (first (str/split (str (some-> cm .-state .-doc str)) #" => "))]
+        code (some-> cm .-state .-doc str)]
     (let [region (form-at-cursor (reverse (take cursor-pos code)))
           region (if (nil? region) nil (eval-string region))]
       (if (nil? region) nil (reset! last-result region)))
@@ -52,7 +52,12 @@
   true)
 
 (defn eval-cell [viewer]
-  (reset! last-result (eval-string (str "(do " (.-doc (.-state viewer)) " )")))
+  (let [code (some-> cm .-state .-doc str)]
+    (reset! last-result (eval-string (str "(do " (.-doc (.-state viewer)) " )")))
+    (update-editor! (str code
+                         (when-not (= "" (:result @last-result)) " => ")
+                         (:result @last-result))
+                    (count code)))
   true)
 
 (defn clear-eval []
@@ -86,3 +91,19 @@
                             :parent (js/document.querySelector "#app")})))
 
 (set! (.-cm_instance js/globalThis) cm)
+
+;; what is top-level, anyway?
+
+(defn t []
+  (map inc (range 8)))
+
+;; ah, Peter from Calva to the rescue!
+;; > Calva does not check the contents of the form in order to 
+;; determine it as a top-level forms: 
+;; *all forms not enclosed in any other form are top level forms*.
+
+;; so there we have it! 
+;; we parse until we are not enclosed in a form.
+
+;; pretty simple, actually.
+;; the contents of the cell are a series of forms.
\ No newline at end of file