diff options
| author | John MacFarlane <[email protected]> | 2025-02-13 14:35:08 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2025-02-13 14:35:08 -0800 |
| commit | f5d41a0c3f0809f2838dafa22e2404e6010eac7e (patch) | |
| tree | c4885fd489f4cf53cfb5fb26b6ffb5f8f341c9fc /src | |
| parent | 54039e392dc11a1cffad2755343226e119cf7dff (diff) | |
Powerpoint writer: avoid extra blank lines before author.
(In the case where there is no subtitle.)
Closes #10619.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Output.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs index 63d302ed4..c0d1f2eba 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs @@ -1752,7 +1752,9 @@ metadataToElement layout titleElems subtitleElems authorsElems dateElems , Just cSld <- findChild (elemName ns "p" "cSld") layout , Just spTree <- findChild (elemName ns "p" "spTree") cSld = do let combinedAuthorElems = intercalate [Break] authorsElems - subtitleAndAuthorElems = intercalate [Break, Break] [subtitleElems, combinedAuthorElems] + subtitleAndAuthorElems = intercalate [Break, Break] $ + filter (not . null) + [subtitleElems, combinedAuthorElems] (titleId, titleElement) <- nonBodyTextToElement layout [PHType "ctrTitle"] titleElems (subtitleId, subtitleElement) <- nonBodyTextToElement layout [PHType "subTitle"] subtitleAndAuthorElems (dateId, dateElement) <- nonBodyTextToElement layout [PHType "dt"] dateElems |