module WASH.CGI.HTMLWrapper
(module H, module WASH.CGI.HTMLWrapper) where
import qualified Prelude
import WASH.HTML.HTMLMonad as H hiding (html)
standardPage :: (Prelude.Monad m) =>
Prelude.String -> WithHTML x m a -> WithHTML y m ()
standardPage ttl elems =
htmlHeader ttl (body_S (h1_S (text ttl) ## elems))
htmlHeader :: (Prelude.Monad m) =>
Prelude.String -> WithHTML x m a -> WithHTML y m ()
htmlHeader ttl elems =
html (head_S (title_S (text ttl))
## elems)
cssPage :: (Prelude.Monad m) =>
Prelude.String -> Prelude.String -> WithHTML x m a -> WithHTML y m ()
cssPage ttl cssurl elems =
cssHeader ttl cssurl (body_S (h1_S (text ttl) ## elems))
cssHeader :: (Prelude.Monad m) =>
Prelude.String -> Prelude.String -> WithHTML x m a -> WithHTML y m ()
cssHeader ttl cssurl elems =
html (head_S (do title_S (text ttl)
link_S (do attr_SS "rel" "stylesheet"
attr_SS "type" "text/css"
attr_SD "href" cssurl))
## elems)
html :: (Prelude.Monad m) =>
WithHTML x m a -> WithHTML y m ()
html elems =
html_T (do elems
attr_SS "xmlns" "http://www.w3.org/1999/xhtml")