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

Made -H, -A, and -B cumulative: if they are specified multiple times,

Browse source 
multiple files will be included.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1165 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2008-01-01 20:43:48 +00:00
parent e37df6db69
commit a505f70f0b
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Main.hs
View file

@ -241,8 +241,9 @@ options =
, Option "H" ["include-in-header"]
(ReqArg
(\arg opt -> do
let old = optIncludeInHeader opt
text <- readFile arg
return opt { optIncludeInHeader = fromUTF8 text,
return opt { optIncludeInHeader = old ++ fromUTF8 text,
optStandalone = True })
"FILENAME")
"" -- "File to include at end of header (implies -s)"
@ -250,16 +251,18 @@ options =
, Option "B" ["include-before-body"]
(ReqArg
(\arg opt -> do
let old = optIncludeBeforeBody opt
text <- readFile arg
return opt { optIncludeBeforeBody = fromUTF8 text })
return opt { optIncludeBeforeBody = old ++ fromUTF8 text })
"FILENAME")
"" -- "File to include before document body"
, Option "A" ["include-after-body"]
(ReqArg
(\arg opt -> do
let old = optIncludeAfterBody opt
text <- readFile arg
return opt { optIncludeAfterBody = fromUTF8 text })
return opt { optIncludeAfterBody = old ++ fromUTF8 text })
"FILENAME")
"" -- "File to include after document body"