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

Return itself when the html element is expanded

Browse source
This commit is contained in:
paku 2024-05-25 20:09:09 +09:00
parent dbe249fbd8
commit 988aa8d672
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/element.lisp
View file

@ -21,6 +21,15 @@
(and children (and children
(list :children (flatten children)))))) (list :children (flatten children))))))
(defmethod expand ((elm element))
(with-accessors ((kind element-kind)
(props element-props)) elm
(if (functionp kind)
(apply kind props)
elm)))
;;;; utils
(defun flatten (x) (defun flatten (x)
(labels ((rec (x acc) (labels ((rec (x acc)
(cond ((null x) acc) (cond ((null x) acc)
@ -29,10 +38,3 @@
(car x) (car x)
(rec (cdr x) acc)))))) (rec (cdr x) acc))))))
(rec x nil))) (rec x nil)))
(defmethod expand ((elm element))
(with-accessors ((kind element-kind)
(props element-props)) elm
(if (functionp kind)
(apply kind props)
(error "element-kind is not a function."))))