module Text.Sundown.Html.Text
( renderHtml
, smartypants
, Extensions (..)
, allExtensions
, noExtensions
, HtmlRenderMode(..)
, noHtmlModes
, allHtmlModes
) where
import Data.Text (Text)
import Data.Text.Encoding
import Text.Sundown.Html.ByteString
(noHtmlModes, allHtmlModes, HtmlRenderMode(..))
import qualified Text.Sundown.Html.ByteString as SundownBS
import Text.Sundown.Foreign
renderHtml :: Text
-> Extensions
-> HtmlRenderMode
-> Bool
-> Maybe Int
-> Text
renderHtml input exts mode sp maxNestingM =
decodeUtf8 $ SundownBS.renderHtml (encodeUtf8 input) exts mode sp
maxNestingM
smartypants :: Text -> Text
smartypants = decodeUtf8 . SundownBS.smartypants . encodeUtf8