From 289b6ed09b16989675d8026bdca2bffa114c8b05 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Mon, 18 Apr 2011 13:08:28 +0200
Subject: Add `pageCompilerWith`

---
 src/Hakyll/Web/Page.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/Hakyll/Web/Page.hs b/src/Hakyll/Web/Page.hs
index 5146bdc..a9c622c 100644
--- a/src/Hakyll/Web/Page.hs
+++ b/src/Hakyll/Web/Page.hs
@@ -53,6 +53,7 @@ module Hakyll.Web.Page
     , toMap
     , readPageCompiler
     , pageCompiler
+    , pageCompilerWith
     , addDefaultFields
     , sortByBaseName
     ) where
@@ -65,6 +66,8 @@ import qualified Data.Map as M
 import Data.List (sortBy)
 import Data.Ord (comparing)
 
+import Text.Pandoc (ParserState, WriterOptions)
+
 import Hakyll.Core.Identifier
 import Hakyll.Core.Compiler
 import Hakyll.Core.Resource
@@ -91,6 +94,14 @@ pageCompiler :: Compiler Resource (Page String)
 pageCompiler = cached "Hakyll.Web.Page.pageCompiler" $
     readPageCompiler >>> addDefaultFields >>> arr applySelf >>> pageRenderPandoc
 
+-- | A version of 'pageCompiler' which allows you to specify your own pandoc
+-- options
+--
+pageCompilerWith :: ParserState -> WriterOptions -> Compiler Resource (Page String)
+pageCompilerWith state options = cached "pageCompilerWith" $
+    readPageCompiler >>> addDefaultFields >>> arr applySelf
+                     >>> pageRenderPandocWith state options
+
 -- | Add a number of default metadata fields to a page. These fields include:
 --
 -- * @$url@
-- 
cgit v1.2.3