diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2019-02-27 09:21:36 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2019-02-27 09:21:36 -0500 |
| commit | 9dfac2cf1a7130ec2b3615b6d4afb23a84c272f4 (patch) | |
| tree | 210198d27b2ea44ef23f974e7398bb7eda3abb3c | |
| parent | ba05e1ea02d5227796f12dea2404285300021de6 (diff) | |
| download | pandoc-9dfac2cf1a7130ec2b3615b6d4afb23a84c272f4.tar.gz | |
PowerPoint writer: add underlines
Use span with single class "underline" as in docx writer.
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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] |