@@ -174,6 +174,7 @@ data Opt = Opt
174174 , optTeXLigatures :: Bool -- ^ Use TeX ligatures for quotes/dashes
175175 , optDefaultImageExtension :: String -- ^ Default image extension
176176 , optTrace :: Bool -- ^ Print debug information
177+ , optTrackChanges :: TrackChanges -- ^ Accept or reject MS Word track-changes.
177178 }
178179
179180-- | Defaults for command-line options.
@@ -230,6 +231,7 @@ defaultOpts = Opt
230231 , optTeXLigatures = True
231232 , optDefaultImageExtension = ""
232233 , optTrace = False
234+ , optTrackChanges = AcceptChanges
233235 }
234236
235237-- | A list of functions, each transforming the options data structure
@@ -776,6 +778,19 @@ options =
776778 (\opt -> return opt { optTrace = True }))
777779 "" -- "Turn on diagnostic tracing in readers."
778780
781+ , Option "" ["track-changes"]
782+ (ReqArg
783+ (\arg opt -> do
784+ action <- case arg of
785+ "accept" -> return AcceptChanges
786+ "reject" -> return RejectChanges
787+ "all" -> return AllChanges
788+ _ -> err 6
789+ ("Unknown option for track-changes: " ++ arg)
790+ return opt { optTrackChanges = action })
791+ "accept|reject|all")
792+ "" -- "Accepting or reject MS Word track-changes.""
793+
779794 , Option "" ["dump-args"]
780795 (NoArg
781796 (\opt -> return opt { optDumpArgs = True }))
@@ -973,6 +988,7 @@ main = do
973988 , optTeXLigatures = texLigatures
974989 , optDefaultImageExtension = defaultImageExtension
975990 , optTrace = trace
991+ , optTrackChanges = trackChanges
976992 } = opts
977993
978994 when dumpArgs $
@@ -1097,6 +1113,7 @@ main = do
10971113 , readerApplyMacros = not laTeXOutput
10981114 , readerDefaultImageExtension = defaultImageExtension
10991115 , readerTrace = trace
1116+ , readerTrackChanges = trackChanges
11001117 }
11011118
11021119 let writerOptions = def { writerStandalone = standalone',