@@ -53,6 +53,7 @@ module Hakyll.Web.Page
5353 , toMap
5454 , readPageCompiler
5555 , pageCompiler
56+ , pageCompilerWith
5657 , addDefaultFields
5758 , sortByBaseName
5859 ) where
@@ -65,6 +66,8 @@ import qualified Data.Map as M
6566import Data.List (sortBy)
6667import Data.Ord (comparing)
6768
69+import Text.Pandoc (ParserState, WriterOptions)
70+
6871import Hakyll.Core.Identifier
6972import Hakyll.Core.Compiler
7073import Hakyll.Core.Resource
@@ -91,6 +94,14 @@ pageCompiler :: Compiler Resource (Page String)
9194pageCompiler = cached "Hakyll.Web.Page.pageCompiler" $
9295 readPageCompiler >>> addDefaultFields >>> arr applySelf >>> pageRenderPandoc
9396
97+-- | A version of 'pageCompiler' which allows you to specify your own pandoc
98+-- options
99+--
100+pageCompilerWith :: ParserState -> WriterOptions -> Compiler Resource (Page String)
101+pageCompilerWith state options = cached "pageCompilerWith" $
102+ readPageCompiler >>> addDefaultFields >>> arr applySelf
103+ >>> pageRenderPandocWith state options
104+
94105-- | Add a number of default metadata fields to a page. These fields include:
95106--
96107-- * @$url@