From 9c2b659eeb196145f62d8eae0072c279a7c2d751 Mon Sep 17 00:00:00 2001 From: Vaibhav Sagar Date: Tue, 28 Apr 2020 22:53:06 +0800 Subject: Support new Underline element in readers and writers (#6277) Deprecate `underlineSpan` in Shared in favor of `Text.Pandoc.Builder.underline`. --- src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Text/Pandoc/Writers/Powerpoint') diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index 68345bcd1..d225535cd 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -323,6 +323,9 @@ inlineToParElems (Str s) = do inlineToParElems (Emph ils) = local (\r -> r{envRunProps = (envRunProps r){rPropItalics=True}}) $ inlinesToParElems ils +inlineToParElems (Underline ils) = + local (\r -> r{envRunProps = (envRunProps r){rPropUnderline=True}}) $ + inlinesToParElems ils inlineToParElems (Strong ils) = local (\r -> r{envRunProps = (envRunProps r){rPropBold=True}}) $ inlinesToParElems ils -- cgit v1.2.3