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

Improve behavior of boolean attributes

Browse source
This commit is contained in:
paku 2024-03-12 15:03:36 +09:00
parent c393b70231
commit f1fd511ac4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/generator.lisp
View file

@ -39,7 +39,8 @@
(defmethod print-object ((attrs elm:attrs) stream) (defmethod print-object ((attrs elm:attrs) stream)
(loop (loop
:for (key . value) :in (elm:attrs-alist attrs) :for (key . value) :in (elm:attrs-alist attrs)
:do (format stream (if (boolean-attr-key-p key) :do (format stream (if (and (boolean-attr-key-p key)
(typep value 'boolean))
"~@[ ~a~]" "~@[ ~a~]"
" ~a=~s") " ~a=~s")
(string-downcase key) (string-downcase key)