diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2021-10-04 11:50:32 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-10-04 11:50:32 -0700 |
| commit | 82d587493d97536a64110902f647d953b5f28dd4 (patch) | |
| tree | 6864e7c6b1abf48a8f01d77819a696379aae0736 /src/Text/Pandoc/Writers | |
| parent | 62f83aa48633af477913bde6f615fe9f8793901a (diff) | |
| download | pandoc-82d587493d97536a64110902f647d953b5f28dd4.tar.gz | |
Revert "Powerpoint writer: consolidate text run nodes."
This reverts commit 62f83aa48633af477913bde6f615fe9f8793901a.
This was already being done, it seems.
I misidentified the problem; it is really with `Str ""` nodes.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index 1680bc7ac..e3d31d099 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -348,15 +348,7 @@ instance Default PicProps where -------------------------------------------------- inlinesToParElems :: [Inline] -> Pres [ParaElem] -inlinesToParElems = concatMapM inlineToParElems . consolidateStrs - where - -- we combine Str + Space combinations, because this makes - -- the resulting ooxml much more compact, with fewer independent - -- text run elements - consolidateStrs [] = [] - consolidateStrs (Str t : Space : ils) = consolidateStrs (Str (t <> " ") : ils) - consolidateStrs (Space : Str t : ils) = consolidateStrs (Str (" " <> t) : ils) - consolidateStrs (il : ils) = il : consolidateStrs ils +inlinesToParElems ils = concatMapM inlineToParElems ils inlineToParElems :: Inline -> Pres [ParaElem] inlineToParElems (Str s) = do |