{-# OPTIONS_HADDOCK hide #-}

module Text.XHtml.Transitional.Attributes where

import Text.XHtml.Internals

-- * Extra attributes in XHTML Transitional

{-# DEPRECATED alink "This attribute is deprecated in XHTML 1.0" #-}
alink               :: String -> HtmlAttr
alink :: String -> HtmlAttr
alink               =   String -> String -> HtmlAttr
strAttr "alink"

{-# DEPRECATED background "This attribute is deprecated in XHTML 1.0" #-}
background          :: String -> HtmlAttr
background :: String -> HtmlAttr
background          =   String -> String -> HtmlAttr
strAttr "background"

{-# DEPRECATED bgcolor "This attribute is deprecated in XHTML 1.0" #-}
bgcolor             :: String -> HtmlAttr
bgcolor :: String -> HtmlAttr
bgcolor             =   String -> String -> HtmlAttr
strAttr "bgcolor"

{-# DEPRECATED clear "This attribute is deprecated in XHTML 1.0" #-}
clear               :: String -> HtmlAttr
clear :: String -> HtmlAttr
clear               =   String -> String -> HtmlAttr
strAttr "clear"

{-# DEPRECATED code "This attribute is deprecated in XHTML 1.0" #-}
code                :: String -> HtmlAttr
code :: String -> HtmlAttr
code                =   String -> String -> HtmlAttr
strAttr "code"

{-# DEPRECATED color "This attribute is deprecated in XHTML 1.0" #-}
color               :: String -> HtmlAttr
color :: String -> HtmlAttr
color               =   String -> String -> HtmlAttr
strAttr "color"

{-# DEPRECATED compact "This attribute is deprecated in XHTML 1.0" #-}
compact             ::           HtmlAttr
compact :: HtmlAttr
compact             = String -> HtmlAttr
emptyAttr "compact"

{-# DEPRECATED face "This attribute is deprecated in XHTML 1.0" #-}
face                :: String -> HtmlAttr
face :: String -> HtmlAttr
face                =   String -> String -> HtmlAttr
strAttr "face"

{-# DEPRECATED hspace "This attribute is deprecated in XHTML 1.0" #-}
hspace              :: Int    -> HtmlAttr
hspace :: Int -> HtmlAttr
hspace              =   String -> Int -> HtmlAttr
intAttr "hspace"

{-# DEPRECATED link "This attribute is deprecated in XHTML 1.0" #-}
link                :: String -> HtmlAttr
link :: String -> HtmlAttr
link                =   String -> String -> HtmlAttr
strAttr "link"

{-# DEPRECATED noshade "This attribute is deprecated in XHTML 1.0" #-}
noshade             ::           HtmlAttr
noshade :: HtmlAttr
noshade             = String -> HtmlAttr
emptyAttr "noshade"

{-# DEPRECATED nowrap "This attribute is deprecated in XHTML 1.0" #-}
nowrap              ::           HtmlAttr
nowrap :: HtmlAttr
nowrap              = String -> HtmlAttr
emptyAttr "nowrap"

{-# DEPRECATED start "This attribute is deprecated in XHTML 1.0" #-}
start               :: Int    -> HtmlAttr
start :: Int -> HtmlAttr
start               =   String -> Int -> HtmlAttr
intAttr "start"

target              :: String -> HtmlAttr
target :: String -> HtmlAttr
target              =   String -> String -> HtmlAttr
strAttr "target"

{-# DEPRECATED text "This attribute is deprecated in XHTML 1.0" #-}
text                :: String -> HtmlAttr
text :: String -> HtmlAttr
text                =   String -> String -> HtmlAttr
strAttr "text"

{-# DEPRECATED version "This attribute is deprecated in XHTML 1.0" #-}
version             :: String -> HtmlAttr
version :: String -> HtmlAttr
version             =   String -> String -> HtmlAttr
strAttr "version"

{-# DEPRECATED vlink "This attribute is deprecated in XHTML 1.0" #-}
vlink               :: String -> HtmlAttr
vlink :: String -> HtmlAttr
vlink               =   String -> String -> HtmlAttr
strAttr "vlink"

{-# DEPRECATED vspace "This attribute is deprecated in XHTML 1.0" #-}
vspace              :: Int    -> HtmlAttr
vspace :: Int -> HtmlAttr
vspace              =   String -> Int -> HtmlAttr
intAttr "vspace"



--
-- * Html colors
--

{-# DEPRECATED aqua,black,blue,fuchsia,gray,green,lime,maroon,navy,olive,purple,red,silver,teal,yellow,white "The use of color attibutes is deprecated in XHTML 1.0" #-}
aqua          :: String
black         :: String
blue          :: String
fuchsia       :: String
gray          :: String
green         :: String
lime          :: String
maroon        :: String
navy          :: String
olive         :: String
purple        :: String
red           :: String
silver        :: String
teal          :: String
yellow        :: String
white         :: String

aqua :: String
aqua          = "aqua"
black :: String
black         = "black"
blue :: String
blue          = "blue"
fuchsia :: String
fuchsia       = "fuchsia"
gray :: String
gray          = "gray"
green :: String
green         = "green"
lime :: String
lime          = "lime"
maroon :: String
maroon        = "maroon"
navy :: String
navy          = "navy"
olive :: String
olive         = "olive"
purple :: String
purple        = "purple"
red :: String
red           = "red"
silver :: String
silver        = "silver"
teal :: String
teal          = "teal"
yellow :: String
yellow        = "yellow"
white :: String
white         = "white"