{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module Blizzard.Html.Attributes
    ( accept
    , acceptCharset
    , accesskey
    , action
    , allowfullscreen
    , alt
    , async
    , autocomplete
    , autofocus
    , autoplay
    , challenge
    , charset
    , checked
    , cite
    , css
    , cols
    , colspan
    , content
    , contenteditable
    , contextmenu
    , controls
    , coords
    , data_
    , datetime
    , default_
    , defer
    , dir
    , disabled
    , draggable
    , enctype
    , for
    , form
    , formaction
    , formenctype
    , formmethod
    , formnovalidate
    , formtarget
    , headers
    , height
    , hidden
    , high
    , href
    , hreflang
    , httpEquiv
    , icon
    , id
    , inert
    , ismap
    , item
    , itemprop
    , itemscope
    , itemtype
    , keytype
    , label
    , lang
    , list
    , loop
    , low
    , manifest
    , max
    , maxlength
    , media
    , method
    , min
    , multiple
    , muted
    , name
    , nomodule
    , novalidate
    , onbeforeonload
    , onbeforeprint
    , onblur
    , oncanplay
    , oncanplaythrough
    , onchange
    , onclick
    , oncontextmenu
    , ondblclick
    , ondrag
    , ondragend
    , ondragenter
    , ondragleave
    , ondragover
    , ondragstart
    , ondrop
    , ondurationchange
    , onemptied
    , onended
    , onerror
    , onfocus
    , onformchange
    , onforminput
    , onhaschange
    , oninput
    , oninvalid
    , onkeydown
    , onkeyup
    , onload
    , onloadeddata
    , onloadedmetadata
    , onloadstart
    , onmessage
    , onmousedown
    , onmousemove
    , onmouseout
    , onmouseover
    , onmouseup
    , onmousewheel
    , ononline
    , onpagehide
    , onpageshow
    , onpause
    , onplay
    , onplaying
    , onprogress
    , onpropstate
    , onratechange
    , onreadystatechange
    , onredo
    , onresize
    , onscroll
    , onseeked
    , onseeking
    , onselect
    , onstalled
    , onstorage
    , onsubmit
    , onsuspend
    , ontimeupdate
    , onundo
    , onunload
    , onvolumechange
    , onwaiting
    , open
    , optimum
    , pattern
    , ping
    , placeholder
    , playsinline
    , preload
    , pubdate
    , radiogroup
    , readonly
    , rel
    , required
    , reversed
    , role
    , rows
    , rowspan
    , sandbox
    , scope
    , scoped
    , seamless
    , selected
    , shape
    , size
    , sizes
    , span
    , spellcheck
    , src
    , srcdoc
    , start
    , step
    , style
    , subject
    , summary
    , tabindex
    , target
    , title
    , truespeed
    , type_
    , typemustmatch
    , usemap
    , value
    , width
    , wrap
    , xmlns
    ) where


import Data.Text (Text, unwords)
import Prelude hiding (id, max, min, span, unwords)
import Text.Blaze.Html (Attribute, customAttribute, textValue)

import qualified Text.Blaze.Html5.Attributes as Attr


accept :: Bool -> Maybe Attribute
accept :: Bool -> Maybe Attribute
accept Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.accept AttributeValue
"accept"
accept Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


acceptCharset :: Text -> Maybe Attribute
acceptCharset :: Text -> Maybe Attribute
acceptCharset = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.acceptCharset (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


accesskey :: Text -> Maybe Attribute
accesskey :: Text -> Maybe Attribute
accesskey = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.accesskey (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


action :: Text -> Maybe Attribute
action :: Text -> Maybe Attribute
action = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.action (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


allowfullscreen :: Bool -> Maybe Attribute
allowfullscreen :: Bool -> Maybe Attribute
allowfullscreen Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"allowfullscreen" AttributeValue
"allowfullscreen"
allowfullscreen Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


alt :: Text -> Maybe Attribute
alt :: Text -> Maybe Attribute
alt = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.alt (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


async :: Bool -> Maybe Attribute
async :: Bool -> Maybe Attribute
async Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.async AttributeValue
"async"
async Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


autocomplete :: Text -> Maybe Attribute
autocomplete :: Text -> Maybe Attribute
autocomplete = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.autocomplete (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


autofocus :: Bool -> Maybe Attribute
autofocus :: Bool -> Maybe Attribute
autofocus Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.autofocus AttributeValue
"autofocus"
autofocus Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


autoplay :: Bool -> Maybe Attribute
autoplay :: Bool -> Maybe Attribute
autoplay Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.autoplay AttributeValue
"autoplay"
autoplay Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


challenge :: Text -> Maybe Attribute
challenge :: Text -> Maybe Attribute
challenge = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.challenge (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


charset :: Text -> Maybe Attribute
charset :: Text -> Maybe Attribute
charset = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.charset (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


checked :: Bool -> Maybe Attribute
checked :: Bool -> Maybe Attribute
checked Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.checked AttributeValue
"checked"
checked Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


cite :: Text -> Maybe Attribute
cite :: Text -> Maybe Attribute
cite = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.cite (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


css :: [Text] -> Maybe Attribute
css :: [Text] -> Maybe Attribute
css = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> ([Text] -> Attribute) -> [Text] -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.class_ (AttributeValue -> Attribute)
-> ([Text] -> AttributeValue) -> [Text] -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue (Text -> AttributeValue)
-> ([Text] -> Text) -> [Text] -> AttributeValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Text] -> Text
unwords


cols :: Text -> Maybe Attribute
cols :: Text -> Maybe Attribute
cols = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.cols (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


colspan :: Text -> Maybe Attribute
colspan :: Text -> Maybe Attribute
colspan = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.colspan (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


content :: Text -> Maybe Attribute
content :: Text -> Maybe Attribute
content = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.content (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


contenteditable :: Text -> Maybe Attribute
contenteditable :: Text -> Maybe Attribute
contenteditable = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.contenteditable (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


contextmenu :: Text -> Maybe Attribute
contextmenu :: Text -> Maybe Attribute
contextmenu = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.contextmenu (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


controls :: Bool -> Maybe Attribute
controls :: Bool -> Maybe Attribute
controls Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.controls AttributeValue
"controls"
controls Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


coords :: Text -> Maybe Attribute
coords :: Text -> Maybe Attribute
coords = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.coords (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


data_ :: Text -> Maybe Attribute
data_ :: Text -> Maybe Attribute
data_ = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.data_ (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


datetime :: Text -> Maybe Attribute
datetime :: Text -> Maybe Attribute
datetime = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.datetime (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


default_ :: Bool -> Maybe Attribute
default_ :: Bool -> Maybe Attribute
default_ Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"default" AttributeValue
"default"
default_ Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


defer :: Bool -> Maybe Attribute
defer :: Bool -> Maybe Attribute
defer Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.defer AttributeValue
"defer"
defer Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


dir :: Text -> Maybe Attribute
dir :: Text -> Maybe Attribute
dir = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.dir (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


disabled :: Bool -> Maybe Attribute
disabled :: Bool -> Maybe Attribute
disabled Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.disabled AttributeValue
"disabled"
disabled Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


draggable :: Text -> Maybe Attribute
draggable :: Text -> Maybe Attribute
draggable = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.draggable (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


enctype :: Text -> Maybe Attribute
enctype :: Text -> Maybe Attribute
enctype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.enctype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


for :: Text -> Maybe Attribute
for :: Text -> Maybe Attribute
for = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.for (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


form :: Text -> Maybe Attribute
form :: Text -> Maybe Attribute
form = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.form (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


formaction :: Text -> Maybe Attribute
formaction :: Text -> Maybe Attribute
formaction = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formaction (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


formenctype :: Text -> Maybe Attribute
formenctype :: Text -> Maybe Attribute
formenctype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formenctype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


formmethod :: Text -> Maybe Attribute
formmethod :: Text -> Maybe Attribute
formmethod = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formmethod (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


formnovalidate :: Bool -> Maybe Attribute
formnovalidate :: Bool -> Maybe Attribute
formnovalidate Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.formnovalidate AttributeValue
"formnovalidate"
formnovalidate Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


formtarget :: Text -> Maybe Attribute
formtarget :: Text -> Maybe Attribute
formtarget = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.formtarget (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


headers :: Text -> Maybe Attribute
headers :: Text -> Maybe Attribute
headers = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.headers (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


height :: Text -> Maybe Attribute
height :: Text -> Maybe Attribute
height = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.height (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


hidden :: Bool -> Maybe Attribute
hidden :: Bool -> Maybe Attribute
hidden Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.hidden AttributeValue
"hidden"
hidden Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


high :: Text -> Maybe Attribute
high :: Text -> Maybe Attribute
high = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.high (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


href :: Text -> Maybe Attribute
href :: Text -> Maybe Attribute
href = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.href (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


hreflang :: Text -> Maybe Attribute
hreflang :: Text -> Maybe Attribute
hreflang = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.hreflang (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


httpEquiv :: Text -> Maybe Attribute
httpEquiv :: Text -> Maybe Attribute
httpEquiv = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.httpEquiv (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


icon :: Text -> Maybe Attribute
icon :: Text -> Maybe Attribute
icon = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.icon (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


id :: Text -> Maybe Attribute
id :: Text -> Maybe Attribute
id = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.id (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


inert :: Bool -> Maybe Attribute
inert :: Bool -> Maybe Attribute
inert Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"inert" AttributeValue
"inert"
inert Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


ismap :: Bool -> Maybe Attribute
ismap :: Bool -> Maybe Attribute
ismap Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.ismap AttributeValue
"ismap"
ismap Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


item :: Text -> Maybe Attribute
item :: Text -> Maybe Attribute
item = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.item (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


itemprop :: Text -> Maybe Attribute
itemprop :: Text -> Maybe Attribute
itemprop = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.itemprop (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


itemscope :: Bool -> Maybe Attribute
itemscope :: Bool -> Maybe Attribute
itemscope Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.itemscope AttributeValue
"itemscope"
itemscope Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


itemtype :: Text -> Maybe Attribute
itemtype :: Text -> Maybe Attribute
itemtype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.itemtype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


keytype :: Text -> Maybe Attribute
keytype :: Text -> Maybe Attribute
keytype = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.keytype (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


label :: Text -> Maybe Attribute
label :: Text -> Maybe Attribute
label = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.label (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


lang :: Text -> Maybe Attribute
lang :: Text -> Maybe Attribute
lang = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.lang (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


list :: Text -> Maybe Attribute
list :: Text -> Maybe Attribute
list = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.list (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


loop :: Bool -> Maybe Attribute
loop :: Bool -> Maybe Attribute
loop Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.loop AttributeValue
"loop"
loop Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


low :: Text -> Maybe Attribute
low :: Text -> Maybe Attribute
low = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.low (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


manifest :: Text -> Maybe Attribute
manifest :: Text -> Maybe Attribute
manifest = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.manifest (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


max :: Text -> Maybe Attribute
max :: Text -> Maybe Attribute
max = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.max (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


maxlength :: Text -> Maybe Attribute
maxlength :: Text -> Maybe Attribute
maxlength = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.maxlength (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


media :: Text -> Maybe Attribute
media :: Text -> Maybe Attribute
media = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.media (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


method :: Text -> Maybe Attribute
method :: Text -> Maybe Attribute
method = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.method (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


min :: Text -> Maybe Attribute
min :: Text -> Maybe Attribute
min = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.min (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


multiple :: Bool -> Maybe Attribute
multiple :: Bool -> Maybe Attribute
multiple Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.multiple AttributeValue
"multiple"
multiple Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


muted :: Bool -> Maybe Attribute
muted :: Bool -> Maybe Attribute
muted Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"muted" AttributeValue
"muted"
muted Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


name :: Text -> Maybe Attribute
name :: Text -> Maybe Attribute
name = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.name (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


nomodule :: Bool -> Maybe Attribute
nomodule :: Bool -> Maybe Attribute
nomodule Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"nomodule" AttributeValue
"nomodule"
nomodule Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


novalidate :: Bool -> Maybe Attribute
novalidate :: Bool -> Maybe Attribute
novalidate Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.novalidate AttributeValue
"novalidate"
novalidate Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


onbeforeonload :: Text -> Maybe Attribute
onbeforeonload :: Text -> Maybe Attribute
onbeforeonload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onbeforeonload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onbeforeprint :: Text -> Maybe Attribute
onbeforeprint :: Text -> Maybe Attribute
onbeforeprint = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onbeforeprint (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onblur :: Text -> Maybe Attribute
onblur :: Text -> Maybe Attribute
onblur = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onblur (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


oncanplay :: Text -> Maybe Attribute
oncanplay :: Text -> Maybe Attribute
oncanplay = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oncanplay (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


oncanplaythrough :: Text -> Maybe Attribute
oncanplaythrough :: Text -> Maybe Attribute
oncanplaythrough = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oncanplaythrough (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onchange :: Text -> Maybe Attribute
onchange :: Text -> Maybe Attribute
onchange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onchange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onclick :: Text -> Maybe Attribute
onclick :: Text -> Maybe Attribute
onclick = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onclick (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


oncontextmenu :: Text -> Maybe Attribute
oncontextmenu :: Text -> Maybe Attribute
oncontextmenu = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oncontextmenu (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondblclick :: Text -> Maybe Attribute
ondblclick :: Text -> Maybe Attribute
ondblclick = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondblclick (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondrag :: Text -> Maybe Attribute
ondrag :: Text -> Maybe Attribute
ondrag = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondrag (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondragend :: Text -> Maybe Attribute
ondragend :: Text -> Maybe Attribute
ondragend = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragend (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondragenter :: Text -> Maybe Attribute
ondragenter :: Text -> Maybe Attribute
ondragenter = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragenter (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondragleave :: Text -> Maybe Attribute
ondragleave :: Text -> Maybe Attribute
ondragleave = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragleave (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondragover :: Text -> Maybe Attribute
ondragover :: Text -> Maybe Attribute
ondragover = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragover (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondragstart :: Text -> Maybe Attribute
ondragstart :: Text -> Maybe Attribute
ondragstart = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondragstart (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondrop :: Text -> Maybe Attribute
ondrop :: Text -> Maybe Attribute
ondrop = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondrop (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ondurationchange :: Text -> Maybe Attribute
ondurationchange :: Text -> Maybe Attribute
ondurationchange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ondurationchange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onemptied :: Text -> Maybe Attribute
onemptied :: Text -> Maybe Attribute
onemptied = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onemptied (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onended :: Text -> Maybe Attribute
onended :: Text -> Maybe Attribute
onended = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onended (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onerror :: Text -> Maybe Attribute
onerror :: Text -> Maybe Attribute
onerror = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onerror (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onfocus :: Text -> Maybe Attribute
onfocus :: Text -> Maybe Attribute
onfocus = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onfocus (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onformchange :: Text -> Maybe Attribute
onformchange :: Text -> Maybe Attribute
onformchange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onformchange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onforminput :: Text -> Maybe Attribute
onforminput :: Text -> Maybe Attribute
onforminput = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onforminput (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onhaschange :: Text -> Maybe Attribute
onhaschange :: Text -> Maybe Attribute
onhaschange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onhaschange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


oninput :: Text -> Maybe Attribute
oninput :: Text -> Maybe Attribute
oninput = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oninput (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


oninvalid :: Text -> Maybe Attribute
oninvalid :: Text -> Maybe Attribute
oninvalid = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.oninvalid (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onkeydown :: Text -> Maybe Attribute
onkeydown :: Text -> Maybe Attribute
onkeydown = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onkeydown (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onkeyup :: Text -> Maybe Attribute
onkeyup :: Text -> Maybe Attribute
onkeyup = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onkeyup (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onload :: Text -> Maybe Attribute
onload :: Text -> Maybe Attribute
onload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onloadeddata :: Text -> Maybe Attribute
onloadeddata :: Text -> Maybe Attribute
onloadeddata = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onloadeddata (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onloadedmetadata :: Text -> Maybe Attribute
onloadedmetadata :: Text -> Maybe Attribute
onloadedmetadata = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onloadedmetadata (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onloadstart :: Text -> Maybe Attribute
onloadstart :: Text -> Maybe Attribute
onloadstart = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onloadstart (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onmessage :: Text -> Maybe Attribute
onmessage :: Text -> Maybe Attribute
onmessage = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmessage (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onmousedown :: Text -> Maybe Attribute
onmousedown :: Text -> Maybe Attribute
onmousedown = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmousedown (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onmousemove :: Text -> Maybe Attribute
onmousemove :: Text -> Maybe Attribute
onmousemove = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmousemove (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onmouseout :: Text -> Maybe Attribute
onmouseout :: Text -> Maybe Attribute
onmouseout = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmouseout (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onmouseover :: Text -> Maybe Attribute
onmouseover :: Text -> Maybe Attribute
onmouseover = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmouseover (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onmouseup :: Text -> Maybe Attribute
onmouseup :: Text -> Maybe Attribute
onmouseup = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmouseup (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onmousewheel :: Text -> Maybe Attribute
onmousewheel :: Text -> Maybe Attribute
onmousewheel = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onmousewheel (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ononline :: Text -> Maybe Attribute
ononline :: Text -> Maybe Attribute
ononline = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ononline (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onpagehide :: Text -> Maybe Attribute
onpagehide :: Text -> Maybe Attribute
onpagehide = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpagehide (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onpageshow :: Text -> Maybe Attribute
onpageshow :: Text -> Maybe Attribute
onpageshow = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpageshow (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onpause :: Text -> Maybe Attribute
onpause :: Text -> Maybe Attribute
onpause = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpause (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onplay :: Text -> Maybe Attribute
onplay :: Text -> Maybe Attribute
onplay = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onplay (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onplaying :: Text -> Maybe Attribute
onplaying :: Text -> Maybe Attribute
onplaying = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onplaying (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onprogress :: Text -> Maybe Attribute
onprogress :: Text -> Maybe Attribute
onprogress = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onprogress (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onpropstate :: Text -> Maybe Attribute
onpropstate :: Text -> Maybe Attribute
onpropstate = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onpropstate (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onratechange :: Text -> Maybe Attribute
onratechange :: Text -> Maybe Attribute
onratechange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onratechange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onreadystatechange :: Text -> Maybe Attribute
onreadystatechange :: Text -> Maybe Attribute
onreadystatechange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onreadystatechange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onredo :: Text -> Maybe Attribute
onredo :: Text -> Maybe Attribute
onredo = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onredo (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onresize :: Text -> Maybe Attribute
onresize :: Text -> Maybe Attribute
onresize = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onresize (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onscroll :: Text -> Maybe Attribute
onscroll :: Text -> Maybe Attribute
onscroll = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onscroll (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onseeked :: Text -> Maybe Attribute
onseeked :: Text -> Maybe Attribute
onseeked = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onseeked (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onseeking :: Text -> Maybe Attribute
onseeking :: Text -> Maybe Attribute
onseeking = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onseeking (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onselect :: Text -> Maybe Attribute
onselect :: Text -> Maybe Attribute
onselect = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onselect (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onstalled :: Text -> Maybe Attribute
onstalled :: Text -> Maybe Attribute
onstalled = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onstalled (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onstorage :: Text -> Maybe Attribute
onstorage :: Text -> Maybe Attribute
onstorage = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onstorage (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onsubmit :: Text -> Maybe Attribute
onsubmit :: Text -> Maybe Attribute
onsubmit = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onsubmit (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onsuspend :: Text -> Maybe Attribute
onsuspend :: Text -> Maybe Attribute
onsuspend = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onsuspend (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ontimeupdate :: Text -> Maybe Attribute
ontimeupdate :: Text -> Maybe Attribute
ontimeupdate = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ontimeupdate (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onundo :: Text -> Maybe Attribute
onundo :: Text -> Maybe Attribute
onundo = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onundo (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onunload :: Text -> Maybe Attribute
onunload :: Text -> Maybe Attribute
onunload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onunload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onvolumechange :: Text -> Maybe Attribute
onvolumechange :: Text -> Maybe Attribute
onvolumechange = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onvolumechange (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


onwaiting :: Text -> Maybe Attribute
onwaiting :: Text -> Maybe Attribute
onwaiting = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.onwaiting (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


open :: Bool -> Maybe Attribute
open :: Bool -> Maybe Attribute
open Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.open AttributeValue
"open"
open Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


optimum :: Text -> Maybe Attribute
optimum :: Text -> Maybe Attribute
optimum = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.optimum (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


pattern :: Text -> Maybe Attribute
pattern :: Text -> Maybe Attribute
pattern = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.pattern (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


ping :: Text -> Maybe Attribute
ping :: Text -> Maybe Attribute
ping = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.ping (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


placeholder :: Text -> Maybe Attribute
placeholder :: Text -> Maybe Attribute
placeholder = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.placeholder (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


playsinline :: Bool -> Maybe Attribute
playsinline :: Bool -> Maybe Attribute
playsinline Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"playsinline" AttributeValue
"playsinline"
playsinline Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


preload :: Text -> Maybe Attribute
preload :: Text -> Maybe Attribute
preload = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.preload (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


pubdate :: Text -> Maybe Attribute
pubdate :: Text -> Maybe Attribute
pubdate = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.pubdate (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


radiogroup :: Text -> Maybe Attribute
radiogroup :: Text -> Maybe Attribute
radiogroup = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.radiogroup (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


readonly :: Bool -> Maybe Attribute
readonly :: Bool -> Maybe Attribute
readonly Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.readonly AttributeValue
"readonly"
readonly Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


rel :: Text -> Maybe Attribute
rel :: Text -> Maybe Attribute
rel = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.rel (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


required :: Bool -> Maybe Attribute
required :: Bool -> Maybe Attribute
required Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.required AttributeValue
"required"
required Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


reversed :: Bool -> Maybe Attribute
reversed :: Bool -> Maybe Attribute
reversed Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.reversed AttributeValue
"reversed"
reversed Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


role :: Text -> Maybe Attribute
role :: Text -> Maybe Attribute
role = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.role (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


rows :: Text -> Maybe Attribute
rows :: Text -> Maybe Attribute
rows = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.rows (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


rowspan :: Text -> Maybe Attribute
rowspan :: Text -> Maybe Attribute
rowspan = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.rowspan (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


sandbox :: Text -> Maybe Attribute
sandbox :: Text -> Maybe Attribute
sandbox = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.sandbox (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


scope :: Text -> Maybe Attribute
scope :: Text -> Maybe Attribute
scope = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.scope (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


scoped :: Bool -> Maybe Attribute
scoped :: Bool -> Maybe Attribute
scoped Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.scoped AttributeValue
"scoped"
scoped Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


seamless :: Bool -> Maybe Attribute
seamless :: Bool -> Maybe Attribute
seamless Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.seamless AttributeValue
"seamless"
seamless Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


selected :: Bool -> Maybe Attribute
selected :: Bool -> Maybe Attribute
selected Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ AttributeValue -> Attribute
Attr.selected AttributeValue
"selected"
selected Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


shape :: Text -> Maybe Attribute
shape :: Text -> Maybe Attribute
shape = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.shape (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


size :: Text -> Maybe Attribute
size :: Text -> Maybe Attribute
size = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.size (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


sizes :: Text -> Maybe Attribute
sizes :: Text -> Maybe Attribute
sizes = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.sizes (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


span :: Text -> Maybe Attribute
span :: Text -> Maybe Attribute
span = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.span (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


spellcheck :: Text -> Maybe Attribute
spellcheck :: Text -> Maybe Attribute
spellcheck = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.spellcheck (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


src :: Text -> Maybe Attribute
src :: Text -> Maybe Attribute
src = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.src (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


srcdoc :: Text -> Maybe Attribute
srcdoc :: Text -> Maybe Attribute
srcdoc = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.srcdoc (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


start :: Text -> Maybe Attribute
start :: Text -> Maybe Attribute
start = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.start (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


step :: Text -> Maybe Attribute
step :: Text -> Maybe Attribute
step = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.step (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


style :: [Text] -> Maybe Attribute
style :: [Text] -> Maybe Attribute
style = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> ([Text] -> Attribute) -> [Text] -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.style (AttributeValue -> Attribute)
-> ([Text] -> AttributeValue) -> [Text] -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue (Text -> AttributeValue)
-> ([Text] -> Text) -> [Text] -> AttributeValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Text] -> Text
unwords


subject :: Text -> Maybe Attribute
subject :: Text -> Maybe Attribute
subject = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.subject (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


summary :: Text -> Maybe Attribute
summary :: Text -> Maybe Attribute
summary = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.summary (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


tabindex :: Text -> Maybe Attribute
tabindex :: Text -> Maybe Attribute
tabindex = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.tabindex (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


target :: Text -> Maybe Attribute
target :: Text -> Maybe Attribute
target = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.target (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


title :: Text -> Maybe Attribute
title :: Text -> Maybe Attribute
title = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.title (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


truespeed :: Bool -> Maybe Attribute
truespeed :: Bool -> Maybe Attribute
truespeed Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"truespeed" AttributeValue
"truespeed"
truespeed Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


type_ :: Text -> Maybe Attribute
type_ :: Text -> Maybe Attribute
type_ = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.type_ (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


typemustmatch :: Bool -> Maybe Attribute
typemustmatch :: Bool -> Maybe Attribute
typemustmatch Bool
True  = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute) -> Attribute -> Maybe Attribute
forall a b. (a -> b) -> a -> b
$ Tag -> AttributeValue -> Attribute
customAttribute Tag
"typemustmatch" AttributeValue
"typemustmatch"
typemustmatch Bool
False = Maybe Attribute
forall a. Maybe a
Nothing


usemap :: Text -> Maybe Attribute
usemap :: Text -> Maybe Attribute
usemap = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.usemap (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


value :: Text -> Maybe Attribute
value :: Text -> Maybe Attribute
value = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.value (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


width :: Text -> Maybe Attribute
width :: Text -> Maybe Attribute
width = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.width (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


wrap :: Text -> Maybe Attribute
wrap :: Text -> Maybe Attribute
wrap = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.wrap (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue


xmlns :: Text -> Maybe Attribute
xmlns :: Text -> Maybe Attribute
xmlns = Attribute -> Maybe Attribute
forall a. a -> Maybe a
Just (Attribute -> Maybe Attribute)
-> (Text -> Attribute) -> Text -> Maybe Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. AttributeValue -> Attribute
Attr.xmlns (AttributeValue -> Attribute)
-> (Text -> AttributeValue) -> Text -> Attribute
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> AttributeValue
textValue