aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint.hs18
1 files changed, 8 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint.hs b/src/Text/Pandoc/Writers/Powerpoint.hs
index 7b73d0ecb..ef9bfedff 100644
--- a/src/Text/Pandoc/Writers/Powerpoint.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint.hs
@@ -679,20 +679,18 @@ getMetaSlide = do
blocksToPresentation :: PandocMonad m => [Block] -> P m Presentation
blocksToPresentation blks = do
- metadataslide <- getMetaSlide
- let bodyStartNum = case metadataslide of
- Just _ -> 2
- Nothing -> 1
+ metadataslides <- maybeToList <$> getMetaSlide
+ let bodyStartNum = length metadataslides + 1
blksLst <- splitBlocks blks
- slides <- mapM
- (\(bs, n) -> local (\st -> st{envCurSlideId = n}) (blocksToSlide bs))
- (zip blksLst [bodyStartNum..])
- let noteSlidesNum = length blksLst + 1
- noteSlides <- local (\st -> st {envCurSlideId = noteSlidesNum}) makeNotesSlides
+ bodyslides <- mapM
+ (\(bs, n) -> local (\st -> st{envCurSlideId = n}) (blocksToSlide bs))
+ (zip blksLst [bodyStartNum..])
+ let noteStartNum = bodyStartNum + length bodyslides
+ noteSlides <- local (\st -> st {envCurSlideId = noteStartNum}) makeNotesSlides
presSize <- asks envPresentationSize
return $
Presentation presSize $
- (maybeToList metadataslide) ++ slides ++ noteSlides
+ metadataslides ++ bodyslides ++ noteSlides
--------------------------------------------------------------------