diff options
| author | eltrac <hi@eltr.ac> | 2026-08-29 09:37:24 +0800 |
|---|---|---|
| committer | eltrac <hi@eltr.ac> | 2026-08-29 09:40:53 +0800 |
| commit | c8a083b0a2a93b7c4ddb42f432c98edcb798ab39 (patch) | |
| tree | c4f5edbe3ad8872a446dee8aafbae1048a4b03f0 | |
| parent | 8198c5271003a22349d2cc22f6fa8e173cbc2341 (diff) | |
macros: add SCRIPT for quickly embedding Parenscript
add docstring
| -rw-r--r-- | macros.lisp | 6 | ||||
| -rw-r--r-- | package.lisp | 2 | ||||
| -rw-r--r-- | tempest.asd | 5 |
3 files changed, 10 insertions, 3 deletions
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"))) |