diff options
Diffstat (limited to 'site.hs')
-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" |