From 06621b2dabfbe0579ff698f10cc3196b436303be Mon Sep 17 00:00:00 2001
From: Chris McCormick <chris@mccormick.cx>
Date: Fri, 15 Nov 2024 11:06:58 +0000
Subject: [PATCH] Fix #89: Allow evaluate_script_tags to specify scripts. (#90)

* Fix #89: Allow evaluate_script_tags to specify scripts.

* Updatte changelog.
---
 CHANGELOG.md          | 2 ++
 src/scittle/core.cljs | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ea2564b..91dab06 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -9,6 +9,8 @@
 <!-- - Create Github release with updated links from `doc/links.md` -->
 <!-- - `bb gh-pages` -->
 
+- [#89](https://github.com/babashka/babashka/issues/89): allow `evaluate_script_tags` to specify individual scripts.
+
 ## v0.6.19 (2024-10-08)
 
 - Add `cljs.pprint/code-dispatch` and `cljs.pprint/with-pprint-dispatch`
diff --git a/src/scittle/core.cljs b/src/scittle/core.cljs
index bd7b0e2..25732db 100644
--- a/src/scittle/core.cljs
+++ b/src/scittle/core.cljs
@@ -103,8 +103,10 @@
           (eval-script-tags* (rest script-tags)))
         (eval-script-tags* (rest script-tags))))))
 
-(defn ^:export eval-script-tags []
-  (let [script-tags (.querySelectorAll doc "script[type='application/x-scittle']")]
+(defn ^:export eval-script-tags [& script-tags]
+  (let [script-tags (or script-tags
+                        (.querySelectorAll
+                          doc "script[type='application/x-scittle']"))]
     (eval-script-tags* script-tags)))
 
 (def auto-load-disabled? (volatile! false))