add muted attribute to html5

fixes #122
jaspervdj · Mar 6, 2024 · aa43da0 · aa43da0
1 parent f874af6
commit aa43da0
Show file tree

Hide file tree

Showing 3 changed files with 40 additions and 0 deletions.
diff --git a/src/Text/Blaze/Html5/Attributes.hs b/src/Text/Blaze/Html5/Attributes.hs
@@ -70,6 +70,7 @@ module Text.Blaze.Html5.Attributes
     , min
     , minlength
     , multiple
+    , muted
     , name
     , novalidate
     , onbeforeonload
@@ -1341,6 +1342,24 @@ multiple :: AttributeValue  -- ^ Attribute value.
 multiple = attribute "multiple" " multiple=\""
 {-# INLINE multiple #-}
 
+-- WARNING: The next block of code was automatically generated by
+-- src/Util/GenerateHtmlCombinators.hs:250
+--
+-- | Combinator for the @muted@ attribute.
+--
+-- Example:
+--
+-- > div ! muted "bar" $ "Hello."
+--
+-- Result:
+--
+-- > <div muted="bar">Hello.</div>
+--
+muted :: AttributeValue  -- ^ Attribute value.
+      -> Attribute       -- ^ Resulting attribute.
+muted = attribute "muted" " muted=\""
+{-# INLINE muted #-}
+
 -- WARNING: The next block of code was automatically generated by
 -- src/Util/GenerateHtmlCombinators.hs:250
 --

diff --git a/src/Text/Blaze/XHtml5/Attributes.hs b/src/Text/Blaze/XHtml5/Attributes.hs
@@ -70,6 +70,7 @@ module Text.Blaze.XHtml5.Attributes
     , min
     , minlength
     , multiple
+    , muted
     , name
     , novalidate
     , onbeforeonload
@@ -1341,6 +1342,24 @@ multiple :: AttributeValue  -- ^ Attribute value.
 multiple = attribute "multiple" " multiple=\""
 {-# INLINE multiple #-}
 
+-- WARNING: The next block of code was automatically generated by
+-- src/Util/GenerateHtmlCombinators.hs:250
+--
+-- | Combinator for the @muted@ attribute.
+--
+-- Example:
+--
+-- > div ! muted "bar" $ "Hello."
+--
+-- Result:
+--
+-- > <div muted="bar">Hello.</div>
+--
+muted :: AttributeValue  -- ^ Attribute value.
+      -> Attribute       -- ^ Resulting attribute.
+muted = attribute "muted" " muted=\""
+{-# INLINE muted #-}
+
 -- WARNING: The next block of code was automatically generated by
 -- src/Util/GenerateHtmlCombinators.hs:250
 --

diff --git a/src/Util/GenerateHtmlCombinators/Html5.hs b/src/Util/GenerateHtmlCombinators/Html5.hs
@@ -194,6 +194,7 @@ attributes =
     , "min"
     , "minlength"
     , "multiple"
+    , "muted"
     , "name"
     , "novalidate"
     , "onbeforeonload"
@@ -223,6 +224,7 @@ attributes =
     , "oninput"
     , "oninvalid"
     , "onkeydown"
+    , "onkeypress"
     , "onkeyup"
     , "onload"
     , "onloadeddata"