PowerPoint writer: Obey slide level option
commit52a4cf669970881424b426c654dc5a2f544786e3
authorJesse Rosenthal <jrosenthal@jhu.edu>
dateThu 28 Dec 2017, 07:47 (9 years ago)
parentbbf1192
src/Text/Pandoc/Writers/Powerpoint.hs+3
@@ -86,6 +86,9 @@ writePowerpoint opts (Pandoc meta blks) = do
8686 , envDistArchive = distArchive
8787 , envUTCTime = utctime
8888 , envOpts = opts
89+ , envSlideLevel = case writerSlideLevel opts of
90+ Just n -> n
91+ Nothing -> 2
8992 }
9093 runP env def $ do pres <- blocksToPresentation blks'
9194 archv <- presentationToArchive pres