From 1b8f5ae3d189c88b18710945cf08824766ddfabb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Sat, 6 Aug 2022 03:20:52 -0300
Subject: Fix support for singleton tags

---
 shtml.lisp | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'shtml.lisp')

diff --git a/shtml.lisp b/shtml.lisp
index fe20999..aeb4400 100644
--- a/shtml.lisp
+++ b/shtml.lisp
@@ -46,12 +46,12 @@
 (define-html a :attrs (download href hreflang media ping referrerpolicy rel target type))
 (define-html abbr)
 (define-html address)
-(define-html area :attrs (alt coords download href hreflang media referrerpolicy rel shape target type))
+(define-html area :attrs (alt coords download href hreflang media referrerpolicy rel shape target type) :single t)
 (define-html article)
 (define-html aside)
 (define-html audio :attrs (autoplay controls loop muted preload src))
 (define-html b)
-(define-html base :attrs (href target))
+(define-html base :attrs (href target) :single t)
 (define-html blockquote :attrs (cite))
 (define-html body)
 (define-html br :single t)
@@ -60,7 +60,7 @@
 (define-html caption)
 (define-html cite)
 (define-html code)
-(define-html col :attrs (span))
+(define-html col :attrs (span) :single t)
 (define-html colgroup :attrs (span))
 (define-html data :attrs (value))
 (define-html datalist)
@@ -71,7 +71,7 @@
 (define-html dl)
 (define-html dt)
 (define-html em)
-(define-html embed :attrs (height src type width))
+(define-html embed :attrs (height src type width) :single t)
 (define-html fieldset :attrs (disabled form name))
 (define-html figcaption)
 (define-html figure)
@@ -89,16 +89,16 @@
 (define-html hr :single t)
 (define-html html :attrs (xmlns))
 (define-html i)
-(define-html img :attrs (alt crossorigin height ismap loading longdesc referrerpolicy sizes src srcset usemap width))
-(define-html input :attrs (accept alt autocomplete autofocus checked dirname disabled form formaction formenctype formmethod formnovalidate formtarget height list max maxlength min minlength multiple name pattern placeholder readonly required size src step type value width))
+(define-html img :attrs (alt crossorigin height ismap loading longdesc referrerpolicy sizes src srcset usemap width) :single t)
+(define-html input :attrs (accept alt autocomplete autofocus checked dirname disabled form formaction formenctype formmethod formnovalidate formtarget height list max maxlength min minlength multiple name pattern placeholder readonly required size src step type value width) :single t)
 (define-html ins :attrs (cite datetime))
 (define-html label :attrs (for form))
 (define-html legend)
 (define-html li :attrs (value))
-(define-html link :attrs (crossorigin href hreflang media referrerpolicy rel sizes type))
+(define-html link :attrs (crossorigin href hreflang media referrerpolicy rel sizes type) :single t)
 (define-html main)
 (define-html mark)
-(define-html meta :attrs (charset content http_equiv name))
+(define-html meta :attrs (charset content http_equiv name) :single t)
 (define-html nav)
 (define-html noscript)
 (define-html object :attrs (data form height name type usemap width))
@@ -107,7 +107,7 @@
 (define-html option :attrs (disabled label selected value))
 (define-html output :attrs (for form name))
 (define-html p)
-(define-html param :attrs (name value))
+(define-html param :attrs (name value) :single t)
 (define-html picture)
 (define-html pre)
 (define-html progress :attrs (max value))
@@ -118,7 +118,7 @@
 (define-html section)
 (define-html select :attrs (autofocus disabled form multiple name requred size))
 (define-html small)
-(define-html source :attrs (media sizes src srcset type))
+(define-html source :attrs (media sizes src srcset type) :single t)
 (define-html span)
 (define-html strong)
 (define-html style :attrs (media type))
@@ -136,9 +136,9 @@
 (define-html thead)
 (define-html title)
 (define-html tr)
-(define-html track :attrs (default kind label src srclang))
+(define-html track :attrs (default kind label src srclang) :single t)
 (define-html u)
 (define-html ul)
 (define-html var)
 (define-html video :attrs (autoplay controls height loop muted poster preload src width))
-(define-html wbr)
+(define-html wbr :single t)
-- 
cgit v1.2.3