diff options
| -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 |