git.iko.soy/typeable/pandoc
on master help sign in
PowerPoint writer: Obey slide level option
52a4cf6Jesse Rosenthal
src/Text/Pandoc/Writers/Powerpoint.hs+3
compare with master
unifiedsplit
@@ -86,6 +86,9 @@ writePowerpoint opts (Pandoc meta blks) = do
86 , envDistArchive = distArchive
86 , envDistArchive = distArchive
87 , envUTCTime = utctime
87 , envUTCTime = utctime
88 , envOpts = opts
88 , envOpts = opts
89+ , envSlideLevel = case writerSlideLevel opts of
90+ Just n -> n
91+ Nothing -> 2
89 }
92 }
90 runP env def $ do pres <- blocksToPresentation blks'
93 runP env def $ do pres <- blocksToPresentation blks'
91 archv <- presentationToArchive pres
94 archv <- presentationToArchive pres