From af640a8ca86a0288ccdd80c32f5f6bf980df96e8 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Sat, 17 Aug 2013 16:56:14 +0800
Subject: activate pipe tables extension

---
 site.hs | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'site.hs')

diff --git a/site.hs b/site.hs
index 35cf014..fd7f541 100644
--- 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"
-- 
cgit v1.2.3