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

Add element-props-with-children method

Browse source
This commit is contained in:
paku 2024-06-09 22:37:51 +09:00
parent d3c487f55e
commit 9745dc6788
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/element.lisp
View file

@ -139,10 +139,8 @@
(element-children element))
(defmethod expand-component ((element component))
(with-slots (type props children) element
(apply type (merge-children-into-props props children))))
(apply (element-type element) (element-props-with-children element)))
(defun merge-children-into-props (props children)
(append props
(and children
(list :children children))))
(defmethod element-props-with-children ((element component))
(with-slots (props children) element
(append props (and children (list :children children)))))