module Text.HTML.Moe.Attribute where
import Text.HTML.Moe.Type
import Text.HTML.Moe.Utils
import Prelude hiding (id, ())
import MPS.Light (())
import Text.HTML.Moe.Utils
attr :: String -> String -> Attribute
attr x y = Attribute (pack x) (pack escape y)
_class :: String -> Attribute
_data :: String -> Attribute
_span :: String -> Attribute
_style :: String -> Attribute
_title :: String -> Attribute
_type :: String -> Attribute
action :: String -> Attribute
align :: String -> Attribute
alt :: String -> Attribute
bgcolor :: String -> Attribute
border :: String -> Attribute
classid :: String -> Attribute
colspan :: String -> Attribute
cols :: String -> Attribute
content :: String -> Attribute
height :: String -> Attribute
href :: String -> Attribute
http_equiv :: String -> Attribute
id :: String -> Attribute
lang :: String -> Attribute
language :: String -> Attribute
media :: String -> Attribute
method :: String -> Attribute
name :: String -> Attribute
quality :: String -> Attribute
rel :: String -> Attribute
rowspan :: String -> Attribute
rows :: String -> Attribute
selected :: String -> Attribute
src :: String -> Attribute
size :: String -> Attribute
target :: String -> Attribute
valign :: String -> Attribute
value :: String -> Attribute
width :: String -> Attribute
xml_lang :: String -> Attribute
xmlns :: String -> Attribute
_class = attr "class"
_data = attr "data"
_span = attr "span"
_style = attr "style"
_title = attr "title"
_type = attr "type"
action = attr "action"
align = attr "align"
alt = attr "alt"
bgcolor = attr "bgcolor"
border = attr "border"
classid = attr "classid"
colspan = attr "colspan"
cols = attr "cols"
content = attr "content"
height = attr "height"
href = attr "href"
http_equiv = attr "http-equiv"
id = attr "id"
lang = attr "lang"
language = attr "language"
media = attr "media"
method = attr "method"
name = attr "name"
quality = attr "quality"
rel = attr "rel"
rowspan = attr "rowspan"
rows = attr "rows"
selected = attr "selected"
src = attr "src"
size = attr "size"
target = attr "target"
valign = attr "valign"
value = attr "value"
width = attr "width"
xml_lang = attr "xml:lang"
xmlns = attr "xmlns"