diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-01-12 10:48:28 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2018-01-12 10:48:28 -0500 |
| commit | 1d9c2770e3025b1b08463577eac499eb475e5bcf (patch) | |
| tree | 111dff90540611fa066cfb667858ecebf01bc8c2 | |
| parent | 021e5ac89d4423e844a741801d6dc59a3edafa51 (diff) | |
| download | pandoc-1d9c2770e3025b1b08463577eac499eb475e5bcf.tar.gz | |
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.hs | 3 |
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 |