diff options
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 | ||||
| -rw-r--r-- | src/pandoc.hs | 2 |
2 files changed, 6 insertions, 0 deletions
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, |