add poster attribute to html5

fixes #75
jaspervdj · Mar 6, 2024 · 6bac4a9 · 6bac4a9
1 parent 90c2538
commit 6bac4a9
Show file tree

Hide file tree

Showing 3 changed files with 39 additions and 0 deletions.
diff --git a/src/Text/Blaze/Html5/Attributes.hs b/src/Text/Blaze/Html5/Attributes.hs
@@ -141,6 +141,7 @@ module Text.Blaze.Html5.Attributes
     , pattern
     , ping
     , placeholder
+    , poster
     , preload
     , property
     , pubdate
@@ -2617,6 +2618,24 @@ placeholder :: AttributeValue  -- ^ Attribute value.
 placeholder = attribute "placeholder" " placeholder=\""
 {-# INLINE placeholder #-}
 
+-- WARNING: The next block of code was automatically generated by
+-- src/Util/GenerateHtmlCombinators.hs:250
+--
+-- | Combinator for the @poster@ attribute.
+--
+-- Example:
+--
+-- > div ! poster "bar" $ "Hello."
+--
+-- Result:
+--
+-- > <div poster="bar">Hello.</div>
+--
+poster :: AttributeValue  -- ^ Attribute value.
+       -> Attribute       -- ^ Resulting attribute.
+poster = attribute "poster" " poster=\""
+{-# INLINE poster #-}
+
 -- 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
@@ -141,6 +141,7 @@ module Text.Blaze.XHtml5.Attributes
     , pattern
     , ping
     , placeholder
+    , poster
     , preload
     , property
     , pubdate
@@ -2617,6 +2618,24 @@ placeholder :: AttributeValue  -- ^ Attribute value.
 placeholder = attribute "placeholder" " placeholder=\""
 {-# INLINE placeholder #-}
 
+-- WARNING: The next block of code was automatically generated by
+-- src/Util/GenerateHtmlCombinators.hs:250
+--
+-- | Combinator for the @poster@ attribute.
+--
+-- Example:
+--
+-- > div ! poster "bar" $ "Hello."
+--
+-- Result:
+--
+-- > <div poster="bar">Hello.</div>
+--
+poster :: AttributeValue  -- ^ Attribute value.
+       -> Attribute       -- ^ Resulting attribute.
+poster = attribute "poster" " poster=\""
+{-# INLINE poster #-}
+
 -- 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
@@ -265,6 +265,7 @@ attributes =
     , "pattern"
     , "ping"
     , "placeholder"
+    , "poster"
     , "preload"
     , "property"
     , "pubdate"