Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added writerTemplate and writerVariables to writerOptions.

Browse source 
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1678 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-12-31 01:09:28 +00:00
parent ca97f1482d
commit 732e6a1097
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Shared.hs
View file

@ -980,6 +980,8 @@ data ObfuscationMethod = NoObfuscation
-- | Options for writers -- | Options for writers
data WriterOptions = WriterOptions data WriterOptions = WriterOptions
{ writerStandalone :: Bool -- ^ Include header and footer { 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 , writerHeader :: String -- ^ Header for the document
, writerTitlePrefix :: String -- ^ Prefix for HTML titles , writerTitlePrefix :: String -- ^ Prefix for HTML titles
, writerTabStop :: Int -- ^ Tabstop for conversion btw spaces and tabs , writerTabStop :: Int -- ^ Tabstop for conversion btw spaces and tabs
@ -1003,6 +1005,8 @@ data WriterOptions = WriterOptions
defaultWriterOptions :: WriterOptions defaultWriterOptions :: WriterOptions
defaultWriterOptions = defaultWriterOptions =
WriterOptions { writerStandalone = False WriterOptions { writerStandalone = False
, writerTemplate = ""
, writerVariables = []
, writerHeader = "" , writerHeader = ""
, writerTitlePrefix = "" , writerTitlePrefix = ""
, writerTabStop = 4 , writerTabStop = 4

2
src/pandoc.hs
View file

@ -617,6 +617,8 @@ main = do
then defaultHeader then defaultHeader
else customHeader) ++ csslink ++ includeHeader else customHeader) ++ csslink ++ includeHeader
let writerOptions = WriterOptions { writerStandalone = standalone', let writerOptions = WriterOptions { writerStandalone = standalone',
writerTemplate = "", -- TODO
writerVariables = [], -- TODO
writerHeader = header, writerHeader = header,
writerTitlePrefix = titlePrefix, writerTitlePrefix = titlePrefix,
writerTabStop = tabStop, writerTabStop = tabStop,