From 7f8105159cab909fa9c803a73276c4b4981c8ebf Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 22 Jun 2020 17:56:05 -0700 Subject: Handle native Underline in Powerpoint writer. (Instead of old Span with underline class. Spans with `underline` will no longer be rendered as underlined text.) --- src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 2 +- test/pptx/inline_formatting.pptx | Bin 26166 -> 26156 bytes test/pptx/inline_formatting_templated.pptx | Bin 393457 -> 393447 bytes 3 files changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index d225535cd..a75b04d2e 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -370,7 +370,7 @@ inlineToParElems (Note blks) = do modify $ \st -> st { stNoteIds = M.insert curNoteId blks notes } local (\env -> env{envRunProps = (envRunProps env){rLink = Just $ InternalTarget endNotesSlideId}}) $ inlineToParElems $ Superscript [Str $ tshow curNoteId] -inlineToParElems (Span (_, ["underline"], _) ils) = +inlineToParElems (Underline ils) = local (\r -> r{envRunProps = (envRunProps r){rPropUnderline=True}}) $ inlinesToParElems ils inlineToParElems (Span _ ils) = inlinesToParElems ils diff --git a/test/pptx/inline_formatting.pptx b/test/pptx/inline_formatting.pptx index bbe525cd8..926c8ff3f 100644 Binary files a/test/pptx/inline_formatting.pptx and b/test/pptx/inline_formatting.pptx differ diff --git a/test/pptx/inline_formatting_templated.pptx b/test/pptx/inline_formatting_templated.pptx index 08fb4e793..16f48e182 100644 Binary files a/test/pptx/inline_formatting_templated.pptx and b/test/pptx/inline_formatting_templated.pptx differ -- cgit v1.2.3