sundown 0.5.1 → 0.5.2

raw patch · 4 files changed

+65/−3 lines, 4 files

Files

• src/Text/Sundown/Html.hs +61/−0
• src/Text/Sundown/Html/String.hs +1/−1
• src/Text/Sundown/Html/Text.hs +1/−1
• sundown.cabal +2/−1

@@ -0,0 +1,61 @@+{-# LANGUAGE FlexibleInstances #-}+{-|+Module exposing a generic class to convert to/from UTF8 'ByteString's, and the+corresponding generic markdown functions.+-}+module Text.Sundown.Html+    ( renderHtml+    , smartypants+      -- * Generic ByteString conversion+    , ToBS(..)+    , FromBS(..)+      -- * Markdown extensions+    , Extensions (..)+    , allExtensions+    , noExtensions+      -- * Html render modes+    , HtmlRenderMode(..)+    , noHtmlModes+    , allHtmlModes+    ) where++import Data.ByteString (ByteString)+import qualified Data.ByteString.UTF8 as BS+import Data.Text (Text)+import qualified Data.Text.Encoding as T++import Text.Sundown.Foreign+import Text.Sundown.Html.ByteString (noHtmlModes, allHtmlModes, HtmlRenderMode(..))+import qualified Text.Sundown.Html.ByteString as BS+import Text.Sundown.Html.Foreign++-- | Converts something to an UTF8 'ByteString'.+class ToBS   a where toBS   :: a -> ByteString+-- | Converts an UTF8 'ByteString' to something.+class FromBS a where fromBS :: ByteString -> a++instance ToBS   ByteString where toBS   = id+instance FromBS ByteString where fromBS = id++instance ToBS   [Char]     where toBS   = BS.fromString+instance FromBS [Char]     where fromBS = BS.toString++instance ToBS   Text       where toBS   = T.encodeUtf8+instance FromBS Text       where fromBS = T.decodeUtf8++-- | Parses markdown, returns the Html.+renderHtml :: (ToBS a, FromBS b)+           => a+           -> Extensions+           -> HtmlRenderMode+           -> Bool              -- ^ If true, smartypant the output+           -> Maybe Int+           -- ^ The maximum nesting of the HTML. If Nothing, a default value+           -- (16) will be used.+           -> b+renderHtml input exts mode sp maxNestingM =+    fromBS $ BS.renderHtml (toBS input) exts mode sp maxNestingM++smartypants :: (ToBS a, FromBS b) => a -> b+smartypants = fromBS . BS.smartypants . toBS+

@@ -14,7 +14,7 @@ import Text.Sundown.Html hiding (renderHtml, smartypants) import qualified Text.Sundown.Html as Sundown --- | Parses a 'ByteString' containing the markdown, returns the Html code.+-- | Parses a 'String' containing the markdown, returns the Html code. renderHtml :: String            -> Extensions            -> HtmlRenderMode

@@ -16,7 +16,7 @@ import Text.Sundown.Html hiding (renderHtml, smartypants) import qualified Text.Sundown.Html as Sundown --- | Parses a 'ByteString' containing the markdown, returns the Html code.+-- | Parses a 'Text' containing the markdown, returns the Html code. renderHtml :: Text            -> Extensions            -> HtmlRenderMode

@@ -1,6 +1,6 @@ Cabal-version:      >= 1.6 Name:               sundown-Version:            0.5.1+Version:            0.5.2 Author:             Francesco Mazzoli (f@mazzo.li) Maintainer:         Francesco Mazzoli (f@mazzo.li) Build-Type:         Simple@@ -31,6 +31,7 @@     Extensions:       EmptyDataDecls, ForeignFunctionInterface      Exposed-Modules:  Text.Sundown,+                      Text.Sundown.Html,                       Text.Sundown.Html.ByteString,                       Text.Sundown.Html.String,                       Text.Sundown.Html.Text