diff options
| -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))) |