diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-08 03:54:07 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-08 03:54:07 +0000 |
commit | dfcae807b07e585e91b1b3a9981bd7ad9543f53e (patch) | |
tree | d86e29a4084b01cdfc2eb7918031b06cc82966b7 | |
parent | e58a55eb41b3f8e9c3a2a2a91ca12b8ec24a15fd (diff) | |
download | pandoc-dfcae807b07e585e91b1b3a9981bd7ad9543f53e.tar.gz |
Man writer: Don't print .\" t at beginning unless we're
in --standalone mode.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@650 788f1e2b-df1e-0410-8736-df70ead52e1b
-rw-r--r-- | src/Text/Pandoc/Writers/Man.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs index 9f590f525..f0cc3c707 100644 --- a/src/Text/Pandoc/Writers/Man.hs +++ b/src/Text/Pandoc/Writers/Man.hs @@ -58,7 +58,7 @@ pandocToMan opts (Pandoc meta blocks) = do (head, foot) <- metaToMan opts meta body <- blockListToMan opts blocks (notes, preprocessors) <- get - let preamble = if null preprocessors + let preamble = if null preprocessors || not (writerStandalone opts) then empty else text $ ".\\\" " ++ concat (nub preprocessors) notes' <- notesToMan opts (reverse notes) |