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

Improve defhsx

Browse source
This commit is contained in:
paku 2024-05-27 18:33:55 +09:00
parent 3b26614d2b
commit a02e924a44
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/hsx.lisp
View file

@ -13,10 +13,11 @@
;;;; hsx definitions ;;;; hsx definitions
(defmacro defhsx (name element-type) (defmacro defhsx (name element-type)
(eval-when (:compile-toplevel :load-toplevel :execute)
`(defmacro ,name (&body body) `(defmacro ,name (&body body)
(multiple-value-bind (props children) (multiple-value-bind (props children)
(parse-body body) (parse-body body)
`(create-element ,',element-type (list ,@props) ,@children)))) `(create-element ,',element-type (list ,@props) ,@children)))))
(defun parse-body (body) (defun parse-body (body)
(if (keywordp (first body)) (if (keywordp (first body))