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

Make HTTPReq in sci

Browse source
This commit is contained in:
Michiel Borkent 2021-05-25 13:09:54 +02:00
parent 781d978384
commit ef2eb9a190
2 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
resources/public/tictactoe.html
View file

@ -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>

5
script/release.clj
View file

@ -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"))