summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2018-01-12 10:48:28 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2018-01-12 10:48:28 -0500
commit1d9c2770e3025b1b08463577eac499eb475e5bcf (patch)
tree111dff90540611fa066cfb667858ecebf01bc8c2
parent021e5ac89d4423e844a741801d6dc59a3edafa51 (diff)
Powerpoint writer: Set notes slide header with slide-level
It used to be hardcoded to 2. This will set it to the appropriate slide-level.
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint.hs b/src/Text/Pandoc/Writers/Powerpoint.hs
index c3f743c5f..e56663ae0 100644
--- a/src/Text/Pandoc/Writers/Powerpoint.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint.hs
@@ -648,9 +648,10 @@ forceFontSize px x = do
makeNotesSlides :: PandocMonad m => P m [Slide]
makeNotesSlides = local (\env -> env{envInNoteSlide=True}) $ do
noteIds <- gets stNoteIds
+ slideLevel <- asks envSlideLevel
if M.null noteIds
then return []
- else do let hdr = Header 2 nullAttr [Str "Notes"]
+ else do let hdr = Header slideLevel nullAttr [Str "Notes"]
blks <- return $
concatMap (\(n, bs) -> makeNoteEntry n bs) $
M.toList noteIds