Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Powerpoint writer: Set notes slide header with slide-level

Browse source 
It used to be hardcoded to 2. This will set it to the appropriate
slide-level.
This commit is contained in:
Jesse Rosenthal 2018-01-12 10:48:28 -05:00
parent 021e5ac89d
commit 1d9c2770e3
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/Powerpoint.hs
View file

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