From d388f0d53a6f631a1598df7ff34c0fdad349cad7 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 30 Nov 2024 08:17:29 -0800
Subject: elem constructors now accept lists directly

---
 src/hypnotisml.lisp | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'src')

diff --git a/src/hypnotisml.lisp b/src/hypnotisml.lisp
index e63f43b..b561e01 100644
--- a/src/hypnotisml.lisp
+++ b/src/hypnotisml.lisp
@@ -250,30 +250,30 @@ already present in the element."
 
 (defun $center (elem)
   (setf (children elem)
-        (list  (apply #'<div>
-                      ($ :display "flex"
-                         :justify-content "center"
-                         :align-items "center"
-                         :height "100%")
-                      (mapcar #'ensure-elem (children elem)))))
+        (list (<div>
+               ($ :display "flex"
+                  :justify-content "center"
+                  :align-items "center"
+                  :height "100%")
+               (mapcar #'ensure-elem (children elem)))))
   elem)
 
 (defun $vcenter (elem)
   (setf (children elem)
-        (list  (apply #'<div>
-                      ($ :display "flex"
-                         :align-items "center"
-                         :height "100%")
-                      (mapcar #'ensure-elem (children elem)))))
+        (list (<div>
+               ($ :display "flex"
+                  :align-items "center"
+                  :height "100%")
+               (mapcar #'ensure-elem (children elem)))))
   elem)
 
 (defun $hcenter (elem)
   (setf (children elem)
-        (list  (apply #'<div>
-                      ($ :display "flex"
-                         :justify-content "center"
-                         :height "100%")
-                      (mapcar #'ensure-elem (children elem)))))
+        (list (<div>
+               ($ :display "flex"
+                  :justify-content "center"
+                  :height "100%")
+               (mapcar #'ensure-elem (children elem)))))
   elem)
 
 
@@ -556,7 +556,7 @@ CONTENTS is a list of NODE instances."
   (<input> (@ :type "time" :name name)))
 
 (defun <submit> (&rest contents)
-  (apply #'<button> (@ :type "submit") contents))
+  (<button> (@ :type "submit") contents))
 
 (defun <linkto> (content url)
   (<a> (@ :href url) (ensure-node content)))
-- 
cgit v1.2.3