From ef2eb9a19097902b6c4b24de261ad4d0d8f08e0c Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Tue, 25 May 2021 13:09:54 +0200
Subject: [PATCH] Make HTTPReq in sci

---
 resources/public/tictactoe.html | 18 +++++++++---------
 script/release.clj              |  5 ++---
 2 files changed, 11 insertions(+), 12 deletions(-)

diff --git a/resources/public/tictactoe.html b/resources/public/tictactoe.html
index e3ee387..aa2f16a 100644
--- a/resources/public/tictactoe.html
+++ b/resources/public/tictactoe.html
@@ -48,15 +48,15 @@
       <pre><code class="html">&lt;script type=&quot;application/x-sci&quot; src=&quot;cljs/tictactoe.cljs&quot;&gt;&lt;/script&gt;</code></pre>
     </p>
     <pre><code class="language-clojure" id="cljs"></code></pre>
-    <script type="text/javascript">
-      function setText () {
-        document.getElementById("cljs").innerHTML = (this.responseText);
-        hljs.highlightAll();
-      }
-      var oReq = new XMLHttpRequest();
-      oReq.addEventListener("load", setText);
-      oReq.open("GET", "cljs/tictactoe.cljs");
-      oReq.send();
+    <script type="application/x-sci">
+      (defn set-text [progress-event]
+        (let [elt (.getElementById js/document "cljs")]
+          (set! (.-innerHTML elt) (.. progress-event -srcElement -responseText))
+          (.highlightAll js/hljs)))
+      (def oreq (js/XMLHttpRequest.))
+      (.addEventListener oreq "load" set-text)
+      (.open oreq "GET" "cljs/tictactoe.cljs")
+      (.send oreq)
     </script>
   </body>
 </html>
diff --git a/script/release.clj b/script/release.clj
index 2b78439..c40216f 100755
--- a/script/release.clj
+++ b/script/release.clj
@@ -13,9 +13,8 @@
 (def js-target-dir (fs/file "gh-pages" "js"))
 (fs/create-dirs js-target-dir)
 
-(when (seq (fs/modified-since js-target-dir "src"))
-  (println "Compiling CLJS")
-  (shell "clojure -M:dev -m shadow.cljs.devtools.cli release main"))
+(println "Compiling CLJS")
+(shell "clojure -M:dev -m shadow.cljs.devtools.cli release main")
 
 (def index-file (fs/file "gh-pages" "index.html"))