From f10870268ea81b4c82c0b2724f752d3b857427e5 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Fri, 11 Jun 2021 14:31:57 +0200
Subject: [PATCH] cljs-ajax example

---
 resources/public/html/cljs-ajax.html | 23 +++++++++++++++++++++++
 resources/public/index.html          | 25 +++++++++++++++++++++++++
 script/release.clj                   |  5 +++--
 3 files changed, 51 insertions(+), 2 deletions(-)
 create mode 100644 resources/public/html/cljs-ajax.html
diff --git a/resources/public/html/cljs-ajax.html b/resources/public/html/cljs-ajax.html
new file mode 100644
index 0000000..46f0bbf
--- /dev/null
+++ 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>
diff --git a/resources/public/index.html b/resources/public/index.html
index 8cf95df..fc563d8 100644
--- a/resources/public/index.html
+++ b/resources/public/index.html
@@ -6,6 +6,7 @@
     <script crossorigin src="https://unpkg.com/react@17/umd/react.production.min.js"></script>
     <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 src="js/scittle.cljs-ajax.js" type="application/javascript"></script>
     <script type="application/x-scittle">
       (defn my-alert []
        (js/alert "You clicked!"))
@@ -25,6 +26,17 @@
 
       (rdom/render [my-component] (.getElementById js/document "app"))
 
+      (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)
+
       (def code-tags (.querySelectorAll js/document "code[data-type='scittle']"))
 
       (require '[goog.object :as gobject])
@@ -38,6 +50,7 @@
                 (set! (.-innerText code) response)
                 (.highlightElement js/hljs code))))
           (.send req)))
+
     </script>
 
     <script src="cljs/script.cljs" type="application/x-scittle"></script>
@@ -98,6 +111,18 @@
 
     <div id="app"></div>
 
+    <a name="cljs-ajax"></a>
+    <h2><a href="#cljs-ajax">Cljs-ajax plugin</a></h2>
+
+    To enable <a href="https://github.com/JulianBirch/cljs-ajax">cljs-ajax</a>,
+    in addition to <tt>scittle.js</tt>, you need to include <tt>scittle.cljs-ajax.js</tt>:
+
+    <pre><code data-type="scittle" data-src="html/cljs-ajax.html" class="html"></code></pre>
+
+    <button onclick="make_request()">
+      Click me!
+    </button>
+
     <a name="examples"></a>
     <h2><a href="#examples">Examples</a></h2>
     <ul>
diff --git a/script/release.clj b/script/release.clj
index 60cf740..0046085 100755
--- a/script/release.clj
+++ b/script/release.clj
@@ -21,8 +21,9 @@
 (def html-source-dir (fs/file "resources" "public" "html"))
 (def html-target-dir (fs/file "gh-pages" "html"))
 (fs/create-dirs html-target-dir)
-(doseq [html ["export.html" "reagent.html"]]
-  (fs/copy (fs/file html-source-dir html) html-target-dir))
+(doseq [html ["export.html" "reagent.html" "cljs-ajax.html"]]
+  (fs/copy (fs/file html-source-dir html) html-target-dir
+           {:replace-existing true}))
 
 (def style-source-dir (fs/file "resources" "public" "css"))
 (def style-target-dir (fs/file "gh-pages" "css"))
