{-# LANGUAGE
OverloadedStrings
#-}
module Web.Page.Blaze
( module X
, template
) where
import Web.Page.Types as X
import qualified Text.Blaze.Html5 as H
import qualified Data.Text as T
template :: WebPage H.Html T.Text H.Attribute
-> H.Html
-> H.Html
template page content =
H.docTypeHtml $ do
H.head $ do
initScripts page
H.title $ H.toHtml $ pageTitle page
metaVars page
favicon page
beforeStylesScripts page
styles page
afterStylesScripts page
H.body H.! bodyStyles page $ do
content
bodyScripts page