activate pipe tables extension
authorrekado <rekado@elephly.net>
Sat, 17 Aug 2013 08:56:14 +0000 (16:56 +0800)
committerrekado <rekado@elephly.net>
Sat, 17 Aug 2013 08:56:14 +0000 (16:56 +0800)
site.hs

diff --git a/site.hs b/site.hs
index 35cf014..fd7f541 100644 (file)
--- a/site.hs
+++ b/site.hs
@@ -4,7 +4,9 @@ import           Control.Applicative ((<$>))
 import           Data.Monoid         (mappend)
 import           Hakyll
 import           Data.Map as M
+import qualified Data.Set as S
 import           Data.Maybe          (fromMaybe)
+import           Text.Pandoc.Options
 
 config :: Configuration
 config = defaultConfiguration
@@ -115,7 +117,16 @@ postList sortFilter = do
   list    <- applyTemplateList itemTpl postCtx posts
   return list
 
-defaultCompiler = pandocCompiler
+customPandocCompiler :: Compiler (Item String)
+customPandocCompiler =
+    pandocCompilerWith
+      (addRExt Ext_pipe_tables defaultHakyllReaderOptions)
+      (addWExt Ext_pipe_tables defaultHakyllWriterOptions)
+  where
+    addRExt e opts = opts { readerExtensions = S.insert e (readerExtensions opts) }
+    addWExt e opts = opts { writerExtensions = S.insert e (writerExtensions opts) }
+
+defaultCompiler = customPandocCompiler
   >>= loadAndApplyTemplate "templates/post.html"    postCtx
   >>= loadAndApplyTemplate "templates/default.html" postCtx
   >>= saveSnapshot "non-relative"