Added functions to render blog posts.

diff --git a/src/RenderBlog.hs b/src/RenderBlog.hs
new file mode 100644 (file)
index 0000000..204efda
--- /dev/null
+++ b/src/RenderBlog.hs
@@ -0,0 +1,17 @@
+module RenderBlog (renderBlog) where
+
+import CMark (Node(..), CMarkOption(..), nodeToHtml, commonmarkToNode, optSafe)
+import Lucid (Html(..), toHtmlRaw)
+import qualified Data.Text as T
+
+renderBlog :: T.Text -> Html ()
+renderBlog = renderNode . cssToNode
+
+cmarkOptions :: [CMarkOption]
+cmarkOptions = [optSafe]
+
+cssToNode :: T.Text -> Node
+cssToNode = commonmarkToNode cmarkOptions
+
+renderNode :: Node -> Html ()
+renderNode = toHtmlRaw . nodeToHtml cmarkOptions

diff --git a/src/Server.hs b/src/Server.hs
index b0a5f5f..0caf0a0 100644 (file)
--- a/src/Server.hs
+++ b/src/Server.hs
@@ -1,8 +1,9 @@
 module Server where
 
 import CssContentType
-import Servant
 import Lucid
+import RenderBlog (renderBlog)
+import Servant
 import Servant.HTML.Lucid (HTML(..))
 import qualified Data.Text as T