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

better location info in error, #33

Browse source
This commit is contained in:
Michiel Borkent 2022-08-31 14:07:01 +02:00
parent f4b10bc46c
commit ef34e84e59
2 changed files with 17 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

22
resources/public/html/local.html
View file

@ -5,18 +5,22 @@
<script crossorigin src="https://unpkg.com/react-dom@17/umd/react-dom.production.min.js"></script>
<script src="../js/scittle.reagent.js" type="application/javascript"></script>
<script type="application/x-scittle">
(require '[reagent.core :as r]
'[reagent.dom :as rdom])
(require '[sci.core :as sci])
(defn try-load-string [s]
(try
(js/scittle.core.eval_string s)
(catch ^:sci/error js/Error e
(run! println (-> (sci/stacktrace e) (sci/format-stacktrace))))))
(def state (r/atom {:clicks 0}))
(try-load-string "
(defn f []
(subs nil 42))
(defn my-component []
[:div
[:p "Clicks: " (:clicks @state)]
[:p [:button {:on-click #(do (print :foo) (println :dude) (prn (with-out-str (prn :foo))) (swap! state update :clicks inc))}
"Click me!"]]])
(defn g []
(f))
(rdom/render [my-component] (.getElementById js/document "app"))
(g)
")
</script>
</head>
<body>