From 8040abe92f2c8097aa40a609a6fac2ef5e22a2d3 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 24 Nov 2024 08:32:07 -0800
Subject: Add <elem> ps macro

---
 src/hypnotisml.lisp | 4 +++-
 src/package.lisp    | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/hypnotisml.lisp b/src/hypnotisml.lisp
index 5a3ec84..544f195 100644
--- a/src/hypnotisml.lisp
+++ b/src/hypnotisml.lisp
@@ -274,7 +274,6 @@ already present in the element."
 
 
 
-
 ;;; RENDERING
 
 (defun html-string (elem &key (pretty t))
@@ -628,6 +627,9 @@ E.g. :1/2, :1, :3/4"
 (ps:defpsmacro js-elem (elem)
   `(ps:chain document (query-selector (ps:lisp (elem-query-selector ,elem)))))
 
+(ps:defpsmacro <elem> (elem)
+  `(ps:chain document (query-selector (ps:lisp (elem-query-selector ,elem)))))
+
 
 
 
diff --git a/src/package.lisp b/src/package.lisp
index d2731e6..5064b6c 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -170,7 +170,8 @@
 
   ;; parenscript macros
   (:export
-   #:js-elem)
+   #:js-elem
+   #:<elem>)
 
   ;; transforms and structure editing
   (:export
-- 
cgit v1.2.3