aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2021-10-04 11:50:32 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2021-10-04 11:50:32 -0700
commit82d587493d97536a64110902f647d953b5f28dd4 (patch)
tree6864e7c6b1abf48a8f01d77819a696379aae0736 /src/Text/Pandoc/Writers
parent62f83aa48633af477913bde6f615fe9f8793901a (diff)
downloadpandoc-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.hs10
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