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

Man writer: Don't print .\" t at beginning unless we're

Browse source 
in --standalone mode.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@650 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2007-07-08 03:54:07 +00:00
parent e58a55eb41
commit dfcae807b0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/Man.hs
View file

@ -58,7 +58,7 @@ pandocToMan opts (Pandoc meta blocks) = do
(head, foot) <- metaToMan opts meta (head, foot) <- metaToMan opts meta
body <- blockListToMan opts blocks body <- blockListToMan opts blocks
(notes, preprocessors) <- get (notes, preprocessors) <- get
let preamble = if null preprocessors let preamble = if null preprocessors || not (writerStandalone opts)
then empty then empty
else text $ ".\\\" " ++ concat (nub preprocessors) else text $ ".\\\" " ++ concat (nub preprocessors)
notes' <- notesToMan opts (reverse notes) notes' <- notesToMan opts (reverse notes)