diff options
author | rekado <rekado@elephly.net> | 2013-08-17 16:56:14 +0800 |
---|---|---|
committer | rekado <rekado@elephly.net> | 2013-08-17 16:56:14 +0800 |
commit | af640a8ca86a0288ccdd80c32f5f6bf980df96e8 (patch) | |
tree | 6ee91862ff38599c7966b6ea889ce801074e15e0 | |
parent | c90b5785e01000d8dfbee4acc1ae03c99233e1e9 (diff) |
activate pipe tables extension
-rw-r--r-- | site.hs | 13 |
1 files changed, 12 insertions, 1 deletions
@@ -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" |