git.iko.soy/typeable/pandoc
on master help sign in
Docx reader: Make use of track-changes option.
0e9bf37Jesse Rosenthal
src/Text/Pandoc/Readers/Docx.hs+16−3
compare with master
unifiedsplit
@@ -234,9 +234,22 @@ runToInlines opts docx@(Docx _ notes _ _ _) (Endnote fnId) =
234
234
235parPartToInlines :: ReaderOptions -> Docx -> ParPart -> [Inline]
235parPartToInlines :: ReaderOptions -> Docx -> ParPart -> [Inline]
236parPartToInlines opts docx (PlainRun r) = runToInlines opts docx r
236parPartToInlines opts docx (PlainRun r) = runToInlines opts docx r
237−parPartToInlines opts docx (Insertion _ _ _ runs) =
237+parPartToInlines opts docx (Insertion _ author date runs) =
238+ case readerTrackChanges opts of
238− concatMap (runToInlines opts docx) runs
239+ AcceptChanges -> concatMap (runToInlines opts docx) runs
240+ RejectChanges -> []
241+ AllChanges ->
242+ [Span
243+ ("", ["insertion"], [("author", author), ("date", date)])
244+ (concatMap (runToInlines opts docx) runs)]
239−parPartToInlines _ _ (Deletion _ _ _ _) = []
245+parPartToInlines opts docx (Deletion _ author date runs) =
246+ case readerTrackChanges opts of
247+ AcceptChanges -> []
248+ RejectChanges -> concatMap (runToInlines opts docx) runs
249+ AllChanges ->
250+ [Span
251+ ("", ["deletion"], [("author", author), ("date", date)])
252+ (concatMap (runToInlines opts docx) runs)]
240parPartToInlines _ _ (BookMark _ anchor) | anchor `elem` dummyAnchors = []
253parPartToInlines _ _ (BookMark _ anchor) | anchor `elem` dummyAnchors = []
241parPartToInlines _ _ (BookMark _ anchor) = [Span (anchor, ["anchor"], []) []]
254parPartToInlines _ _ (BookMark _ anchor) = [Span (anchor, ["anchor"], []) []]
242parPartToInlines _ (Docx _ _ _ rels _) (Drawing relid) =
255parPartToInlines _ (Docx _ _ _ rels _) (Drawing relid) =