paku/hsx
1
0
Fork 0
Code Issues2 Pull requests Projects Releases2 Packages Wiki Activity Actions

Delete create-element-hook

Browse source
This commit is contained in:
Akira Tempaku 2024-05-29 10:54:20 +09:00
commit fb53f6aa05
2 changed files with 10 additions and 37 deletions

28
src/element.lisp
View file

@ -34,16 +34,14 @@
;;;; factory
(defun create-element (type props &rest children)
(let ((element (make-instance (cond ((functionp type) 'component)
((eq type :<>) 'fragment)
((eq type :html) 'html-tag)
((keywordp type) 'tag)
(t (error "element-type must be either a keyword or a function.")))
:type type
:props props
:children (flatten children))))
(create-element-hook element)
element))
(make-instance (cond ((functionp type) 'component)
((eq type :<>) 'fragment)
((eq type :html) 'html-tag)
((keywordp type) 'tag)
(t (error "element-type must be either a keyword or a function.")))
:type type
:props props
:children (flatten children)))
(defun flatten (x)
(labels ((rec (x acc)
@ -54,16 +52,6 @@
(rec (cdr x) acc))))))
(rec x nil)))
(defmethod create-element-hook ((element element)))
(defmethod create-element-hook ((element fragment))
(when (element-props element)
(error "Cannot pass props to fragment.")))
(defmethod create-element-hook ((element component))
;dry-run to validate props
(expand-component element))
;;;; methods