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 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers') 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 -- cgit v1.2.3