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

Add merge-children-into-props function

Browse source
This commit is contained in:
paku 2024-05-26 13:57:51 +09:00
parent 55cf69582f
commit ab34b5dbb6
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/element.lisp
View file

@ -32,9 +32,8 @@
(props element-props) (props element-props)
(children element-children)) elm (children element-children)) elm
(if (functionp type) (if (functionp type)
(apply type (append props (apply type
(and children (merge-children-into-props props children))
(list :children children))))
elm))) elm)))
(defun flatten (x) (defun flatten (x)
@ -45,3 +44,8 @@
(car x) (car x)
(rec (cdr x) acc)))))) (rec (cdr x) acc))))))
(rec x nil))) (rec x nil)))
(defun merge-children-into-props (props children)
(append props
(and children
(list :children children))))