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

Amend stuffs

Browse source
This commit is contained in:
paku 2024-05-27 18:11:04 +09:00
parent 8bafa1b4da
commit e4eec0749f
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/element.lisp
View file

@ -89,7 +89,7 @@
:for (key value) :on props :by #'cddr :for (key value) :on props :by #'cddr
:do (format stream (if (typep value 'boolean) :do (format stream (if (typep value 'boolean)
"~@[ ~a~]" "~@[ ~a~]"
" ~a=~s") " ~a=\"~a\"")
(string-downcase key) (string-downcase key)
value)))) value))))

2
tests/hsx.lisp
View file

@ -59,9 +59,9 @@
"child1" "child1"
"child2")))) "child2"))))
(defhsx comp1 #'%comp1)
(defun %comp1 (&key prop1 prop2 children) (defun %comp1 (&key prop1 prop2 children)
(declare (ignore prop1 prop2 children))) (declare (ignore prop1 prop2 children)))
(defhsx comp1 #'%comp1)
(defcomp comp2 (&key prop1 prop2 children) (defcomp comp2 (&key prop1 prop2 children)
(declare (ignore prop1 prop2 children))) (declare (ignore prop1 prop2 children)))