paku/hsx
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

Wrap user element functions with macro

Browse source
This commit is contained in:
paku 2024-02-03 22:37:58 +09:00
parent 169a0c1467
commit 3d8fad8e3f
1 changed files with 18 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/piccolo.lisp
View file

@ -149,7 +149,9 @@ When given :ASCII and :ATTR, it's possible to insert html text as a children, e.
(call-next-method)) (call-next-method))
(defmacro! define-element (name (&rest args) &body body) (defmacro! define-element (name (&rest args) &body body)
`(defun ,name (&rest ,g!attrs-and-children) (let ((%name (alexandria:symbolicate '% name)))
`(progn
(defun ,%name (&rest ,g!attrs-and-children)
(multiple-value-bind (,g!attrs ,g!children) (multiple-value-bind (,g!attrs ,g!children)
(split-attrs-and-children ,g!attrs-and-children) (split-attrs-and-children ,g!attrs-and-children)
(let ((,g!element (let ((,g!element
@ -162,7 +164,9 @@ When given :ASCII and :ATTR, it's possible to insert html text as a children, e.
(list arg `(attr attrs (make-keyword ',arg)))) (list arg `(attr attrs (make-keyword ',arg))))
args) args)
(progn ,@body)))) (progn ,@body))))
,g!element)))) ,g!element)))
(defmacro ,name (&body attrs-and-children)
`(,',%name ,@attrs-and-children)))))
(defvar *expand-user-element* t) (defvar *expand-user-element* t)