From fcbec16e573e6f6bcab2775f48a3ad0a2e1a540f Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Wed, 17 Jan 2018 08:22:13 -0500
Subject: Powerpoint writer: Change reference to notesSlide to endNotesSlide

This will prevent confusion when speakers notes are implemented.
---
 src/Text/Pandoc/Writers/Powerpoint/Presentation.hs | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'src/Text/Pandoc/Writers')

diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
index fce85968a..5046922ce 100644
--- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
@@ -580,8 +580,8 @@ forceFontSize px x = do
 
 -- We leave these as blocks because we will want to include them in
 -- the TOC.
-makeNotesSlideBlocks :: Pres [Block]
-makeNotesSlideBlocks = do
+makeEndNotesSlideBlocks :: Pres [Block]
+makeEndNotesSlideBlocks = do
   noteIds <- gets stNoteIds
   slideLevel <- asks envSlideLevel
   meta <- asks envMetadata
@@ -730,25 +730,25 @@ blocksToPresentation blks = do
   bodyslides <- mapM
                 (\(bs, n) -> local (\st -> st{envCurSlideId = n}) (blocksToSlide bs))
                 (zip blksLst [bodyStartNum..])
-  let noteStartNum = bodyStartNum + length bodyslides
-  notesSlideBlocks <- makeNotesSlideBlocks
+  let endNoteStartNum = bodyStartNum + length bodyslides
+  endNotesSlideBlocks <- makeEndNotesSlideBlocks
   -- now we come back and make the real toc...
   tocSlides <- if writerTableOfContents opts
-               then do toc <- makeTOCSlide $ blks ++ notesSlideBlocks
+               then do toc <- makeTOCSlide $ blks ++ endNotesSlideBlocks
                        return [toc]
                else return []
   -- ... and the notes slide. We test to see if the blocks are empty,
   -- because we don't want to make an empty slide.
-  notesSlides <- if null notesSlideBlocks
+  endNotesSlides <- if null endNotesSlideBlocks
                  then return []
-                 else do notesSlide <- local
-                           (\env -> env { envCurSlideId = noteStartNum
+                 else do endNotesSlide <- local
+                           (\env -> env { envCurSlideId = endNoteStartNum
                                         , envInNoteSlide = True
                                         })
-                           (blocksToSlide $ notesSlideBlocks)
-                         return [notesSlide]
+                           (blocksToSlide $ endNotesSlideBlocks)
+                         return [endNotesSlide]
 
-  let slides = metadataslides ++ tocSlides ++ bodyslides ++ notesSlides
+  let slides = metadataslides ++ tocSlides ++ bodyslides ++ endNotesSlides
   slides' <- mapM (applyToSlide replaceAnchor) slides
   return $ Presentation slides'
 
-- 
cgit v1.2.3