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

Support for src

Browse source
This commit is contained in:
Michiel Borkent 2021-05-23 17:13:16 +02:00
parent 98e30dae61
commit 57c4e38f7e
4 changed files with 30 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/sci/script_tag.cljs
View file

@ -44,10 +44,23 @@
(defn merge-ctx [opts]
(swap! ctx sci/merge-opts opts))
(defn- load-contents [script-tags]
(when-first [tag script-tags]
(if-let [text (not-empty (gobject/get tag "textContent"))]
(do (eval-string text)
(load-contents (rest script-tags)))
(let [src (.getAttribute tag "src")
req (js/XMLHttpRequest.)
_ (.open req "GET" src true)
_ (gobject/set req "onload"
(fn [] (this-as this
(let [response (gobject/get this "response")]
(eval-string response))
(load-contents (rest script-tags)))))]
(.send req)))))
(js/document.addEventListener
"DOMContentLoaded"
(fn []
(let [script-tags (js/document.querySelectorAll "script[type='application/x-sci']")]
(run! (fn [script-tag]
(let [text (gobject/get script-tag "textContent")]
(eval-string text))) script-tags))), false)
(load-contents script-tags))), false)