bamboo-2009.4.22: src/Bamboo/Helper/Html.hs

{-# LANGUAGE NoMonomorphismRestriction#-}
{-# LANGUAGE NoImplicitPrelude #-}

module Bamboo.Helper.Html where

import Text.XHtml.Strict
import Bamboo.Helper.PreludeEnv
import Char


span = thespan

div = thediv
id = identifier
klass = theclass

d = div
c x = d ! [klass x]
i x = d ! [id x]

ic x y = d ! [id x, klass y]
ci x y = ic y x

ul = ulist



escape_html_unicode = concatMap fixChar
    where
      fixChar '<' = "<"
      fixChar '>' = ">"
      fixChar '&' = "&"
      fixChar '"' = "\""
      fixChar c | ord c < 0x80 = [c]
      fixChar c = "&#" ++ show (ord c) ++ ";"

link = hotlink
img = image