simon/mw-scittle
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

clean up

Browse source
This commit is contained in:
Bobby Towers 2023-04-15 03:35:24 -07:00
parent 751663bc63
commit ffd32949cf
1 changed files with 3 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

18
resources/public/cljs/codemirror.cljs
View file

@ -1,6 +1,7 @@
(require '[clojure.string :as str] (require '[clojure.string :as str]
'[reagent.core :as r] '[reagent.core :as r]
'[reagent.dom :as rdom]) '[reagent.dom :as rdom])
(declare cm) (declare cm)
(defn eval-string [s] (defn eval-string [s]
@ -9,19 +10,9 @@
(catch js/Error e (catch js/Error e
{:error (str (.-message e))})))) {:error (str (.-message e))}))))
(defn eval-me []
(js/scittle.core.eval_string (-> cm .-state .-doc .toString)))
(defonce !viewer (atom ""))
(defonce last-result (atom "")) (defonce last-result (atom ""))
(defonce eval-tail (atom nil)) (defonce eval-tail (atom nil))
(defn myval []
(some-> cm .-state .-doc str))
;; export function to use from JavaScript:
(set! (.-myval js/window) myval)
(defn update-editor! [text cursor-pos] (defn update-editor! [text cursor-pos]
(let [end (count (some-> cm .-state .-doc str))] (let [end (count (some-> cm .-state .-doc str))]
(.dispatch cm #js{:changes #js{:from 0 :to end :insert text} (.dispatch cm #js{:changes #js{:from 0 :to end :insert text}
@ -82,9 +73,6 @@
")] ")]
(js/cm.EditorView. #js {:doc doc (js/cm.EditorView. #js {:doc doc
:extensions #js [js/cm.basicSetup, (js/lc.clojure), (.highest js/cs.Prec extension)] :extensions #js [js/cm.basicSetup, (js/lc.clojure), (.highest js/cs.Prec extension)]
:parent (js/document.querySelector "#app") :parent (js/document.querySelector "#app")})))
#_#_:dispatch (fn [tr] (-> cm (.update #js [tr])) (eval-me))})))
(set! (.-eval_me js/globalThis) eval-me)
(set! (.-cm_instance js/globalThis) cm)
(eval-me) (set! (.-cm_instance js/globalThis) cm)