diff options
| author | John MacFarlane <[email protected]> | 2024-02-09 14:16:08 -0800 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2024-02-09 16:39:56 -0800 |
| commit | 8c85fbbf2efbe783abc866bbed46254af8f8ac2a (patch) | |
| tree | 2bf4fe4c2b0b5caf93410de472c417e8d924d70a | |
| parent | 0604fa297dfdacf32cd8360a0c48651e45c9e566 (diff) | |
Powerpoint writer: Fix regression in layout for slides with figures.
Closes #9442.
| -rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs index f3f00da50..fb07d8810 100644 --- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs +++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs @@ -537,7 +537,7 @@ blockToParagraphs (Div (_, classes, _) blks) = let | otherwise -> Nothing addIncremental env = env { envInIncrementalDiv = incremental } in local addIncremental (concatMapM blockToParagraphs blks) -blockToParagraphs (Figure attr capt blks) = +blockToParagraphs (Figure attr capt blks) = -- This never seems to be used: blockToParagraphs (Shared.figureDiv attr capt blks) blockToParagraphs hr@HorizontalRule = notRendered hr blockToParagraphs tbl@Table{} = notRendered tbl @@ -649,6 +649,7 @@ plainOrPara _ = Nothing notText :: Block -> Bool notText block | startsWithImage block = True notText Table{} = True +notText Figure{} = True notText _ = False startsWithImage :: Block -> Bool |