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

Enable boolean behavior of any attribute

Browse source
This commit is contained in:
paku 2024-03-13 16:15:51 +09:00
parent 4dfde01ac1
commit 0d51c5ec63
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/generator.lisp
View file

@ -23,11 +23,6 @@
(defun ,(alx:symbolicate name '-p) (symbol)
(gethash (alx:make-keyword (string-upcase symbol)) ,ht))))))
(define-group boolean-attr-key
allowfullscreen async autofocus autoplay checked controls default defer
disabled formnovalidate inert ismap itemscope loop multiple muted nomodule
novalidate open playsinline readonly required reversed selected)
(define-group self-closing-tag
area base br col embed hr img input keygen
link meta param source track wbr)
@ -39,8 +34,7 @@
(defmethod print-object ((attrs elm:attrs) stream)
(loop
:for (key . value) :in (elm:attrs-alist attrs)
:do (format stream (if (and (boolean-attr-key-p key)
(typep value 'boolean))
:do (format stream (if (typep value 'boolean)
"~@[ ~a~]"
" ~a=~s")
(string-downcase key)