diff options
| author | colin <colin@cicadas.surf> | 2024-11-30 08:17:29 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-11-30 08:17:53 -0800 |
| commit | d388f0d53a6f631a1598df7ff34c0fdad349cad7 (patch) | |
| tree | 878b3b0ef5e9e1a3119e7d6b159e7ee5d37647ac | |
| parent | ca8cfa8e4c566de9e366d10ca2b2f7a99e523dd4 (diff) | |
| -rw-r--r-- | src/hypnotisml.lisp | 34 |
1 files changed, 17 insertions, 17 deletions
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))) |