Text/XHtml/Transitional/Attributes.hs

    {-# OPTIONS_HADDOCK hide #-}
    -- #hide
    #if __GLASGOW_HASKELL__ >= 701
    {-# LANGUAGE Safe #-}
    #endif

    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               =   strAttr "alink"

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    {-# DEPRECATED vspace "This attribute is deprecated in XHTML 1.0" #-}
    vspace              :: Int    -> HtmlAttr
    vspace              =   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          = "aqua"
    black         = "black"
    blue          = "blue"
    fuchsia       = "fuchsia"
    gray          = "gray"
    green         = "green"
    lime          = "lime"
    maroon        = "maroon"
    navy          = "navy"
    olive         = "olive"
    purple        = "purple"
    red           = "red"
    silver        = "silver"
    teal          = "teal"
    yellow        = "yellow"
    white         = "white"