{-# LANGUAGE OverloadedStrings #-}
module Miso.Html.Property
(
class_
, classList_
, id_
, title_
, hidden_
, lang_
, type_
, value_
, defaultValue_
, checked_
, placeholder_
, selected_
, accept_
, acceptCharset_
, action_
, autocomplete_
, autofocus_
, autosave_
, disabled_
, enctype_
, formation_
, list_
, maxlength_
, minlength_
, method_
, multiple_
, name_
, novalidate_
, pattern_
, readonly_
, required_
, size_
, for_
, ref_
, form_
, max_
, min_
, step_
, cols_
, rows_
, wrap_
, href_
, target_
, download_
, downloadAs_
, hreflang_
, media_
, ping_
, rel_
, ismap_
, usemap_
, shape_
, coords_
, src_
, height_
, width_
, alt_
, loading_
, autoplay_
, controls_
, loop_
, preload_
, poster_
, default_
, kind_
, srclang_
, sandbox_
, seamless_
, srcdoc_
, reversed_
, align_
, colspan_
, rowspan_
, headers_
, scope_
, async_
, charset_
, content_
, defer_
, httpEquiv_
, language_
, scoped_
, data_
) where
import Miso.Html.Types
import Miso.Property
import Miso.String (MisoString, intercalate)
classList_ :: [(MisoString, Bool)] -> Attribute action
classList_ :: forall action. [(MisoString, Bool)] -> Attribute action
classList_ [(MisoString, Bool)]
xs =
MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"class" (MisoString -> Attribute action) -> MisoString -> Attribute action
forall a b. (a -> b) -> a -> b
$ MisoString -> [MisoString] -> MisoString
intercalate (MisoString
" " :: MisoString) [ MisoString
t | (MisoString
t, Bool
True) <- [(MisoString, Bool)]
xs ]
title_ :: MisoString -> Attribute action
title_ :: forall action. MisoString -> Attribute action
title_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"title"
selected_ :: Bool -> Attribute action
selected_ :: forall action. Bool -> Attribute action
selected_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"selected"
hidden_ :: Bool -> Attribute action
hidden_ :: forall action. Bool -> Attribute action
hidden_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"hidden"
lang_ :: MisoString -> Attribute action
lang_ :: forall action. MisoString -> Attribute action
lang_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"lang"
value_ :: MisoString -> Attribute action
value_ :: forall action. MisoString -> Attribute action
value_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"value"
defaultValue_ :: MisoString -> Attribute action
defaultValue_ :: forall action. MisoString -> Attribute action
defaultValue_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"defaultValue"
accept_ :: MisoString -> Attribute action
accept_ :: forall action. MisoString -> Attribute action
accept_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"accept"
acceptCharset_ :: MisoString -> Attribute action
acceptCharset_ :: forall action. MisoString -> Attribute action
acceptCharset_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"acceptCharset"
action_ :: MisoString -> Attribute action
action_ :: forall action. MisoString -> Attribute action
action_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"action"
autocomplete_ :: Bool -> Attribute action
autocomplete_ :: forall action. Bool -> Attribute action
autocomplete_ Bool
b = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"autocomplete" (if Bool
b then MisoString
"on" else MisoString
"off")
autosave_ :: MisoString -> Attribute action
autosave_ :: forall action. MisoString -> Attribute action
autosave_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"autosave"
disabled_ :: Bool -> Attribute action
disabled_ :: forall action. Bool -> Attribute action
disabled_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"disabled"
enctype_ :: MisoString -> Attribute action
enctype_ :: forall action. MisoString -> Attribute action
enctype_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"enctype"
formation_ :: MisoString -> Attribute action
formation_ :: forall action. MisoString -> Attribute action
formation_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"formation"
list_ :: MisoString -> Attribute action
list_ :: forall action. MisoString -> Attribute action
list_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"list"
maxlength_ :: MisoString -> Attribute action
maxlength_ :: forall action. MisoString -> Attribute action
maxlength_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"maxlength"
minlength_ :: MisoString -> Attribute action
minlength_ :: forall action. MisoString -> Attribute action
minlength_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"minlength"
method_ :: MisoString -> Attribute action
method_ :: forall action. MisoString -> Attribute action
method_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"method"
multiple_ :: Bool -> Attribute action
multiple_ :: forall action. Bool -> Attribute action
multiple_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"multiple"
novalidate_ :: Bool -> Attribute action
novalidate_ :: forall action. Bool -> Attribute action
novalidate_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"noValidate"
pattern_ :: MisoString -> Attribute action
pattern_ :: forall action. MisoString -> Attribute action
pattern_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"pattern"
readonly_ :: Bool -> Attribute action
readonly_ :: forall action. Bool -> Attribute action
readonly_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"readOnly"
required_ :: Bool -> Attribute action
required_ :: forall action. Bool -> Attribute action
required_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"required"
size_ :: MisoString -> Attribute action
size_ :: forall action. MisoString -> Attribute action
size_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"size"
for_ :: MisoString -> Attribute action
for_ :: forall action. MisoString -> Attribute action
for_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"for"
ref_ :: MisoString -> Attribute action
ref_ :: forall action. MisoString -> Attribute action
ref_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"ref"
form_ :: MisoString -> Attribute action
form_ :: forall action. MisoString -> Attribute action
form_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"form"
max_ :: MisoString -> Attribute action
max_ :: forall action. MisoString -> Attribute action
max_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"max"
min_ :: MisoString -> Attribute action
min_ :: forall action. MisoString -> Attribute action
min_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"min"
step_ :: MisoString -> Attribute action
step_ :: forall action. MisoString -> Attribute action
step_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"step"
cols_ :: MisoString -> Attribute action
cols_ :: forall action. MisoString -> Attribute action
cols_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"cols"
rows_ :: MisoString -> Attribute action
rows_ :: forall action. MisoString -> Attribute action
rows_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"rows"
wrap_ :: MisoString -> Attribute action
wrap_ :: forall action. MisoString -> Attribute action
wrap_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"wrap"
target_ :: MisoString -> Attribute action
target_ :: forall action. MisoString -> Attribute action
target_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"target"
download_ :: MisoString -> Attribute action
download_ :: forall action. MisoString -> Attribute action
download_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"download"
downloadAs_ :: MisoString -> Attribute action
downloadAs_ :: forall action. MisoString -> Attribute action
downloadAs_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"downloadAs"
hreflang_ :: MisoString -> Attribute action
hreflang_ :: forall action. MisoString -> Attribute action
hreflang_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"hreflang"
media_ :: MisoString -> Attribute action
media_ :: forall action. MisoString -> Attribute action
media_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"media"
ping_ :: MisoString -> Attribute action
ping_ :: forall action. MisoString -> Attribute action
ping_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"ping"
rel_ :: MisoString -> Attribute action
rel_ :: forall action. MisoString -> Attribute action
rel_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"rel"
ismap_ :: MisoString -> Attribute action
ismap_ :: forall action. MisoString -> Attribute action
ismap_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"ismap"
usemap_ :: MisoString -> Attribute action
usemap_ :: forall action. MisoString -> Attribute action
usemap_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"usemap"
shape_ :: MisoString -> Attribute action
shape_ :: forall action. MisoString -> Attribute action
shape_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"shape"
coords_ :: MisoString -> Attribute action
coords_ :: forall action. MisoString -> Attribute action
coords_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"coords"
src_ :: MisoString -> Attribute action
src_ :: forall action. MisoString -> Attribute action
src_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"src"
height_ :: MisoString -> Attribute action
height_ :: forall action. MisoString -> Attribute action
height_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"height"
width_ :: MisoString -> Attribute action
width_ :: forall action. MisoString -> Attribute action
width_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"width"
alt_ :: MisoString -> Attribute action
alt_ :: forall action. MisoString -> Attribute action
alt_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"alt"
loading_ :: MisoString -> Attribute action
loading_ :: forall action. MisoString -> Attribute action
loading_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"loading"
autoplay_ :: Bool -> Attribute action
autoplay_ :: forall action. Bool -> Attribute action
autoplay_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"autoplay"
controls_ :: Bool -> Attribute action
controls_ :: forall action. Bool -> Attribute action
controls_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"controls"
loop_ :: Bool -> Attribute action
loop_ :: forall action. Bool -> Attribute action
loop_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"loop"
preload_ :: MisoString -> Attribute action
preload_ :: forall action. MisoString -> Attribute action
preload_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"preload"
poster_ :: MisoString -> Attribute action
poster_ :: forall action. MisoString -> Attribute action
poster_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"poster"
default_ :: Bool -> Attribute action
default_ :: forall action. Bool -> Attribute action
default_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"default"
kind_ :: MisoString -> Attribute action
kind_ :: forall action. MisoString -> Attribute action
kind_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"kind"
srclang_ :: MisoString -> Attribute action
srclang_ :: forall action. MisoString -> Attribute action
srclang_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"srclang"
sandbox_ :: MisoString -> Attribute action
sandbox_ :: forall action. MisoString -> Attribute action
sandbox_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"sandbox"
seamless_ :: MisoString -> Attribute action
seamless_ :: forall action. MisoString -> Attribute action
seamless_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"seamless"
srcdoc_ :: MisoString -> Attribute action
srcdoc_ :: forall action. MisoString -> Attribute action
srcdoc_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"srcdoc"
reversed_ :: MisoString -> Attribute action
reversed_ :: forall action. MisoString -> Attribute action
reversed_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"reversed"
align_ :: MisoString -> Attribute action
align_ :: forall action. MisoString -> Attribute action
align_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"align"
colspan_ :: MisoString -> Attribute action
colspan_ :: forall action. MisoString -> Attribute action
colspan_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"colspan"
rowspan_ :: MisoString -> Attribute action
rowspan_ :: forall action. MisoString -> Attribute action
rowspan_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"rowspan"
headers_ :: MisoString -> Attribute action
= MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"headers"
scope_ :: MisoString -> Attribute action
scope_ :: forall action. MisoString -> Attribute action
scope_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"scope"
async_ :: MisoString -> Attribute action
async_ :: forall action. MisoString -> Attribute action
async_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"async"
charset_ :: MisoString -> Attribute action
charset_ :: forall action. MisoString -> Attribute action
charset_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"charset"
content_ :: MisoString -> Attribute action
content_ :: forall action. MisoString -> Attribute action
content_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"content"
defer_ :: MisoString -> Attribute action
defer_ :: forall action. MisoString -> Attribute action
defer_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"defer"
httpEquiv_ :: MisoString -> Attribute action
httpEquiv_ :: forall action. MisoString -> Attribute action
httpEquiv_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"httpEquiv"
language_ :: MisoString -> Attribute action
language_ :: forall action. MisoString -> Attribute action
language_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"language"
scoped_ :: MisoString -> Attribute action
scoped_ :: forall action. MisoString -> Attribute action
scoped_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"scoped"
type_ :: MisoString -> Attribute action
type_ :: forall action. MisoString -> Attribute action
type_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"type"
name_ :: MisoString -> Attribute action
name_ :: forall action. MisoString -> Attribute action
name_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"name"
href_ :: MisoString -> Attribute action
href_ :: forall action. MisoString -> Attribute action
href_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"href"
id_ :: MisoString -> Attribute action
id_ :: forall action. MisoString -> Attribute action
id_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"id"
placeholder_ :: MisoString -> Attribute action
placeholder_ :: forall action. MisoString -> Attribute action
placeholder_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"placeholder"
checked_ :: Bool -> Attribute action
checked_ :: forall action. Bool -> Attribute action
checked_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"checked"
autofocus_ :: Bool -> Attribute action
autofocus_ :: forall action. Bool -> Attribute action
autofocus_ = MisoString -> Bool -> Attribute action
forall action. MisoString -> Bool -> Attribute action
boolProp MisoString
"autofocus"
class_ :: MisoString -> Attribute action
class_ :: forall action. MisoString -> Attribute action
class_ = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp MisoString
"class"
data_ :: MisoString -> MisoString -> Attribute action
data_ :: forall action. MisoString -> MisoString -> Attribute action
data_ MisoString
k MisoString
v = MisoString -> MisoString -> Attribute action
forall action. MisoString -> MisoString -> Attribute action
textProp (MisoString
"data-" MisoString -> MisoString -> MisoString
forall a. Semigroup a => a -> a -> a
<> MisoString
k) MisoString
v