From 9dfac2cf1a7130ec2b3615b6d4afb23a84c272f4 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Wed, 27 Feb 2019 09:21:36 -0500
Subject: PowerPoint writer: add underlines
Use span with single class "underline" as in docx writer.
---
src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 3 +++
1 file changed, 3 insertions(+)
(limited to 'src')
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
index 25cf79323..f0fd06456 100644
--- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
@@ -382,6 +382,9 @@ 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 $ show curNoteId]
+inlineToParElems (Span (_, ["underline"], _) ils) =
+ local (\r -> r{envRunProps = (envRunProps r){rPropUnderline=True}}) $
+ inlinesToParElems ils
inlineToParElems (Span _ ils) = inlinesToParElems ils
inlineToParElems (Quoted quoteType ils) =
inlinesToParElems $ [Str open] ++ ils ++ [Str close]
--
cgit v1.2.3