cljs-ajax example

2021-06-11 14:31:57 +02:00 · 2021-06-11 14:31:57 +02:00 · f10870268e
commit f10870268e
parent f5b014864f
3 changed files with 51 additions and 2 deletions
--- a/resources/public/html/cljs-ajax.html
+++ b/resources/public/html/cljs-ajax.html
@ -0,0 +1,23 @@
+<html>
+  <head>
+    <script src="https://borkdude.github.io/scittle/js/scittle.js" type="application/javascript"></script>
+    <script src="https://borkdude.github.io/scittle/js/scittle.cljs-ajax.js" type="application/javascript"></script>
+    <script type="application/x-scittle">
+      (require '[ajax.core :refer [GET]])
+
+      (defn handler [response]
+        (js/alert (str response)))
+
+      (defn make-request []
+       (GET "html/cljs-ajax.html" {:handler handler}))
+
+      ;; export function to use from JavaScript:
+      (set! (.-make_request js/window) make-request)
+    </script>
+  </head>
+  <body>
+    <button onclick="make_request()">
+      Click me!
+    </button>
+  </body>
+</html>