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

update build

Browse source
This commit is contained in:
Michiel Borkent 2022-10-10 13:59:42 +02:00
parent 7b05eb8c97
commit 8ece5bf970
1 changed files with 17 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

20
codemirror.html
View file

@ -38,8 +38,19 @@
(require (quote [clojure.string :as str])) (require (quote [clojure.string :as str]))
(def cm (def cm
(let [doc (str/trim " (let [doc (str/trim "
(defn foo [x] (js/alert x)) (require '[reagent.core :as r]
(foo \"hello\")")] '[reagent.dom :as rdom])
(defonce state (r/atom {:clicks 0}))
(defn my-component []
[:div
[:p \"Clicks: \" (:clicks @state)]
[:p [:button {:on-click #(swap! state update :clicks inc)}
\"Click me!\"]]])
(rdom/render [my-component] (.getElementById js/document \"reagent\"))
")]
(js/cm.EditorView. #js {:doc doc (js/cm.EditorView. #js {:doc doc
:extensions #js [js/cm.basicSetup, (js/lc.clojure)] :extensions #js [js/cm.basicSetup, (js/lc.clojure)]
:parent (js/document.querySelector "#app") :parent (js/document.querySelector "#app")
@ -47,12 +58,15 @@
(set! (.-cm_instance js/globalThis) cm) (set! (.-cm_instance js/globalThis) cm)
(defn eval-me [] (defn eval-me []
(load-string (-> cm .-state .-doc .toString))) (load-string (-> cm .-state .-doc .toString)))
(set! (.-eval_me js/globalThis) eval-me) (set! (.-eval_me js/globalThis) eval-me)
(eval-me)
</script> </script>
</head> </head>
<body> <body>
<div id="app"> <div id="app">
</div> </div>
<div id="reagent">
</div>
<button onClick="eval_me()">Eval</button> <button onClick="eval_me()">Eval</button>
</body> </body>
</html> </html>