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)) (element-children element))
(defmethod expand-component ((element component)) (defmethod expand-component ((element component))
(with-slots (type props children) element (apply (element-type element) (element-props-with-children element)))
(apply type (merge-children-into-props props children))))
(defun merge-children-into-props (props children) (defmethod element-props-with-children ((element component))
(append props (with-slots (props children) element
(and children (append props (and children (list :children children)))))
(list :children children))))