update build

2022-10-10 13:59:42 +02:00 · 2022-10-10 13:59:42 +02:00 · 8ece5bf970
commit 8ece5bf970
parent 7b05eb8c97
1 changed files with 17 additions and 3 deletions
--- a/codemirror.html
+++ b/codemirror.html
@ -38,8 +38,19 @@
      (require (quote [clojure.string :as str]))
      (def cm
       (let [doc (str/trim "
-(defn foo [x] (js/alert x))
-(foo \"hello\")")]
+(require '[reagent.core :as r]
+         '[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
                                :extensions #js [js/cm.basicSetup, (js/lc.clojure)]
                                :parent (js/document.querySelector "#app")
@ -47,12 +58,15 @@
      (set! (.-cm_instance js/globalThis) cm)
      (defn eval-me []
       (load-string (-> cm .-state .-doc .toString)))
-      (set! (.-eval_me js/globalThis) eval-me)
+        (set! (.-eval_me js/globalThis) eval-me)
+      (eval-me)
    </script>
  </head>
  <body>
    <div id="app">
    </div>
+    <div id="reagent">
+    </div>
    <button onClick="eval_me()">Eval</button>
  </body>
 </html>