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