diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-06-22 17:56:05 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-06-22 17:56:28 -0700 |
| commit | 7f8105159cab909fa9c803a73276c4b4981c8ebf (patch) | |
| tree | eabd6015de36d3ac02eba9e442ae42535b913e42 /src/Text/Pandoc/Writers | |
| parent | b1561d8e470a4b9ecc681d4749093fa14cb1bd37 (diff) | |
| download | pandoc-7f8105159cab909fa9c803a73276c4b4981c8ebf.tar.gz | |
Handle native Underline in Powerpoint writer.
(Instead of old Span with underline class.
Spans with `underline` will no longer be rendered
as underlined text.)
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |