From 1d9c2770e3025b1b08463577eac499eb475e5bcf Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Fri, 12 Jan 2018 10:48:28 -0500 Subject: 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. --- src/Text/Pandoc/Writers/Powerpoint.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3