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.
commit1d9c2770e3025b1b08463577eac499eb475e5bcf
authorJesse Rosenthal <jrosenthal@jhu.edu>
dateFri 12 Jan 2018, 10:48 (9 years ago)
parent021e5ac
src/Text/Pandoc/Writers/Powerpoint.hs+2−1
@@ -648,9 +648,10 @@ forceFontSize px x = do
648648makeNotesSlides :: PandocMonad m => P m [Slide]
649649makeNotesSlides = local (\env -> env{envInNoteSlide=True}) $ do
650650 noteIds <- gets stNoteIds
651+ slideLevel <- asks envSlideLevel
651652 if M.null noteIds
652653 then return []
653− else do let hdr = Header 2 nullAttr [Str "Notes"]
654+ else do let hdr = Header slideLevel nullAttr [Str "Notes"]
654655 blks <- return $
655656 concatMap (\(n, bs) -> makeNoteEntry n bs) $
656657 M.toList noteIds