@@ -648,9 +648,10 @@ forceFontSize px x = do
648makeNotesSlides :: PandocMonad m => P m [Slide]
648makeNotesSlides :: PandocMonad m => P m [Slide]
649makeNotesSlides = local (\env -> env{envInNoteSlide=True}) $ do
649makeNotesSlides = local (\env -> env{envInNoteSlide=True}) $ do
650 noteIds <- gets stNoteIds
650 noteIds <- gets stNoteIds
651+ slideLevel <- asks envSlideLevel
651 if M.null noteIds
652 if M.null noteIds
652 then return []
653 then return []
653− else do let hdr = Header 2 nullAttr [Str "Notes"]
654+ else do let hdr = Header slideLevel nullAttr [Str "Notes"]
654 blks <- return $
655 blks <- return $
655 concatMap (\(n, bs) -> makeNoteEntry n bs) $
656 concatMap (\(n, bs) -> makeNoteEntry n bs) $
656 M.toList noteIds
657 M.toList noteIds