module Precis.StyleSheet
(
inline_stylesheet
) where
import Text.XHtml hiding ( navy, maroon )
inline_stylesheet :: Html
inline_stylesheet = primHtml $ unlines $
[ "<!--"
, "body { background-color: white; color: black; "
, " font-family: sans-serif; padding: 0 0; }"
, ""
, "h1 { background-color: " ++ whitesmoke ++ "; color: " ++ brown ++ " }"
, ".oldcode { background-color: " ++ mintcream ++ "; "
, " border: 1px solid #3a3; border-width: 0 1px 0 1px } "
, ".newcode { background-color: " ++ aliceblue ++ "; "
, " border: 1px solid #3a3; border-width: 0 1px 0 1px } "
, ".deletedcode { background-color: " ++ bisque ++ "; "
, " border: 1px solid #3a3; border-width: 0 1px 0 1px } "
, "-->"
]
aliceblue :: String
aliceblue = "rgb(240,249,255)"
bisque :: String
bisque = "rgb(255,228,197)"
brown :: String
brown = "rgb(165,43,43)"
mintcream :: String
mintcream = "rgb(246,255,250)"
whitesmoke :: String
whitesmoke = "rgb(246,246,246)"