module Text.Hamlet
(
hamlet
, xhamlet
, hamletDebug
, hamletFile
, xhamletFile
, hamletFileDebug
, hamletWithSettings
, hamletFileWithSettings
, HamletSettings (..)
, defaultHamletSettings
, xhtmlHamletSettings
, Html (..)
, Hamlet
, ToHtml (..)
, HamletValue (..)
, renderHamlet
, renderHtml
, preEscapedString
, string
, unsafeByteString
, cdata
, HamletRT
, HamletData (..)
, HamletException (..)
, parseHamletRT
, renderHamletRT
) where
import Text.Hamlet.Parse
import Text.Hamlet.Quasi
import Text.Hamlet.RT
import Text.Hamlet.Debug
import qualified Data.ByteString as S
import qualified Data.ByteString.Lazy as L
import Data.Monoid (mappend)
import Text.Blaze.Builder.Core (toLazyByteString, fromByteString)
import Text.Blaze.Builder.Html (fromHtmlEscapedString)
import Text.Blaze.Builder.Utf8 (fromString)
renderHamlet :: (url -> [(String, String)] -> String) -> Hamlet url -> L.ByteString
renderHamlet render h = renderHtml $ h render
renderHtml :: Html -> L.ByteString
renderHtml (Html h) = toLazyByteString h
cdata :: Html -> Html
cdata h =
Html (fromByteString "<![CDATA[")
`mappend`
h
`mappend`
Html (fromByteString "]]>")
preEscapedString :: String -> Html
preEscapedString = Html . fromString
string :: String -> Html
string = Html . fromHtmlEscapedString
unsafeByteString :: S.ByteString -> Html
unsafeByteString = Html . fromByteString