From c8a083b0a2a93b7c4ddb42f432c98edcb798ab39 Mon Sep 17 00:00:00 2001
From: eltrac <hi@eltr.ac>
Date: Sat, 29 Aug 2026 09:37:24 +0800
Subject: macros: add SCRIPT for quickly embedding Parenscript

add docstring
---
 macros.lisp  | 6 ++++++
 package.lisp | 2 +-
 tempest.asd  | 5 +++--
 3 files changed, 10 insertions(+), 3 deletions(-)
 create mode 100644 macros.lisp

diff --git a/macros.lisp b/macros.lisp
new file mode 100644
index 0000000..85f2c9d
--- /dev/null
+++ b/macros.lisp
@@ -0,0 +1,6 @@
+;; Parenscript shortcut
+(defmacro script (&rest body)
+  "Macro expanding to (:script (:raw (ps body))). Great for embedding JS inside page."
+  `(list :script 
+         (list :raw 
+               (ps ,@body))))
diff --git a/package.lisp b/package.lisp
index 17a1d58..1928fa3 100644
--- a/package.lisp
+++ b/package.lisp
@@ -1,5 +1,5 @@
 (defpackage #:tempest 
-  (:use #:cl)
+  (:use #:cl #:parenscript)
   (:local-nicknames (#:file-notify #:org.shirakumo.file-notify))
   (:import-from :arrows :-> :->> :as->)
   (:export main))
diff --git a/tempest.asd b/tempest.asd
index 44e5c7c..5463b3d 100644
--- a/tempest.asd
+++ b/tempest.asd
@@ -6,6 +6,7 @@
   :license "AGPL-v3-or-later"
   :version "0.0.1"
   :serial t 
-  :depends-on ("file-notify" "spinneret" "str" "arrows" "cl-fad")
+  :depends-on ("file-notify" "spinneret" "parenscript" "spinneret/ps" "str" "arrows" "cl-fad")
   :components ((:file "package")
-               (:file "tempest")))
+               (:file "tempest")
+               (:file "macros")))
-- 
cgit v1.2.3