diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-12-26 11:19:55 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-12-26 11:19:55 -0700 |
commit | e3422dc43836166af713d8e487aea6868bafeb71 (patch) | |
tree | adff1b4bc39abb0e79e675fc6f0797b4ecb10bf3 /pandoc.hs | |
parent | c30c96b422980f452b4e2f74efc7600673ae54eb (diff) |
Added `--verbose` flag for debugging output in PDF production.
Closes #1840.
Closes #1653.
Diffstat (limited to 'pandoc.hs')
-rw-r--r-- | pandoc.hs | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -186,6 +186,7 @@ data Opt = Opt , optTOCDepth :: Int -- ^ Number of levels to include in TOC , optDumpArgs :: Bool -- ^ Output command-line arguments , optIgnoreArgs :: Bool -- ^ Ignore command-line arguments + , optVerbose :: Bool -- ^ Verbose diagnostic output , optReferenceLinks :: Bool -- ^ Use reference links in writing markdown, rst , optWrapText :: Bool -- ^ Wrap text , optColumns :: Int -- ^ Line length in characters @@ -246,6 +247,7 @@ defaultOpts = Opt , optTOCDepth = 3 , optDumpArgs = False , optIgnoreArgs = False + , optVerbose = False , optReferenceLinks = False , optWrapText = True , optColumns = 72 @@ -858,6 +860,11 @@ options = (\opt -> return opt { optIgnoreArgs = True })) "" -- "Ignore command-line arguments." + , Option "" ["verbose"] + (NoArg + (\opt -> return opt { optVerbose = True })) + "" -- "Verbose diagnostic output." + , Option "v" ["version"] (NoArg (\_ -> do @@ -1061,6 +1068,7 @@ main = do , optTOCDepth = epubTOCDepth , optDumpArgs = dumpArgs , optIgnoreArgs = ignoreArgs + , optVerbose = verbose , optReferenceLinks = referenceLinks , optWrapText = wrap , optColumns = columns @@ -1302,7 +1310,8 @@ main = do writerTOCDepth = epubTOCDepth, writerReferenceODT = referenceODT, writerReferenceDocx = referenceDocx, - writerMediaBag = media + writerMediaBag = media, + writerVerbose = verbose } |