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

Add track changes option to command line.

Browse source
This commit is contained in:
Jesse Rosenthal 2014-06-25 14:09:01 -04:00
parent d824f89fb3
commit aa194d387c
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
pandoc.hs
View file

@ -174,6 +174,7 @@ data Opt = Opt
, optTeXLigatures :: Bool -- ^ Use TeX ligatures for quotes/dashes , optTeXLigatures :: Bool -- ^ Use TeX ligatures for quotes/dashes
, optDefaultImageExtension :: String -- ^ Default image extension , optDefaultImageExtension :: String -- ^ Default image extension
, optTrace :: Bool -- ^ Print debug information , optTrace :: Bool -- ^ Print debug information
, optTrackChanges :: TrackChanges -- ^ Accept or reject MS Word track-changes.
} }
-- | Defaults for command-line options. -- | Defaults for command-line options.
@ -230,6 +231,7 @@ defaultOpts = Opt
, optTeXLigatures = True , optTeXLigatures = True
, optDefaultImageExtension = "" , optDefaultImageExtension = ""
, optTrace = False , optTrace = False
, optTrackChanges = AcceptChanges
} }
-- | A list of functions, each transforming the options data structure -- | A list of functions, each transforming the options data structure
@ -776,6 +778,19 @@ options =
(\opt -> return opt { optTrace = True })) (\opt -> return opt { optTrace = True }))
"" -- "Turn on diagnostic tracing in readers." "" -- "Turn on diagnostic tracing in readers."
, Option "" ["track-changes"]
(ReqArg
(\arg opt -> do
action <- case arg of
"accept" -> return AcceptChanges
"reject" -> return RejectChanges
"all" -> return AllChanges
_ -> err 6
("Unknown option for track-changes: " ++ arg)
return opt { optTrackChanges = action })
"accept|reject|all")
"" -- "Accepting or reject MS Word track-changes.""
, Option "" ["dump-args"] , Option "" ["dump-args"]
(NoArg (NoArg
(\opt -> return opt { optDumpArgs = True })) (\opt -> return opt { optDumpArgs = True }))
@ -973,6 +988,7 @@ main = do
, optTeXLigatures = texLigatures , optTeXLigatures = texLigatures
, optDefaultImageExtension = defaultImageExtension , optDefaultImageExtension = defaultImageExtension
, optTrace = trace , optTrace = trace
, optTrackChanges = trackChanges
} = opts } = opts
when dumpArgs $ when dumpArgs $
@ -1097,6 +1113,7 @@ main = do
, readerApplyMacros = not laTeXOutput , readerApplyMacros = not laTeXOutput
, readerDefaultImageExtension = defaultImageExtension , readerDefaultImageExtension = defaultImageExtension
, readerTrace = trace , readerTrace = trace
, readerTrackChanges = trackChanges
} }
let writerOptions = def { writerStandalone = standalone', let writerOptions = def { writerStandalone = standalone',