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

32
src/piccolo.lisp
View file

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