From 732e6a109721f0b456962e8eaff674996f72dd22 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 31 Dec 2009 01:09:28 +0000 Subject: Added writerTemplate and writerVariables to writerOptions. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1678 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Shared.hs | 4 ++++ src/pandoc.hs | 2 ++ 2 files changed, 6 insertions(+) (limited to 'src') diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index c99fa3e9e..6c131825a 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -980,6 +980,8 @@ data ObfuscationMethod = NoObfuscation -- | Options for writers data WriterOptions = WriterOptions { writerStandalone :: Bool -- ^ Include header and footer + , writerTemplate :: String -- ^ Template to use in standalone mode + , writerVariables :: [(String, String)] -- ^ Variables to set in template , writerHeader :: String -- ^ Header for the document , writerTitlePrefix :: String -- ^ Prefix for HTML titles , writerTabStop :: Int -- ^ Tabstop for conversion btw spaces and tabs @@ -1003,6 +1005,8 @@ data WriterOptions = WriterOptions defaultWriterOptions :: WriterOptions defaultWriterOptions = WriterOptions { writerStandalone = False + , writerTemplate = "" + , writerVariables = [] , writerHeader = "" , writerTitlePrefix = "" , writerTabStop = 4 diff --git a/src/pandoc.hs b/src/pandoc.hs index 4e3cad5b2..8f4c9e41f 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -617,6 +617,8 @@ main = do then defaultHeader else customHeader) ++ csslink ++ includeHeader let writerOptions = WriterOptions { writerStandalone = standalone', + writerTemplate = "", -- TODO + writerVariables = [], -- TODO writerHeader = header, writerTitlePrefix = titlePrefix, writerTabStop = tabStop, -- cgit v1.2.3