diff options
author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-28 07:47:07 -0500 |
---|---|---|
committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2017-12-28 07:47:07 -0500 |
commit | 52a4cf669970881424b426c654dc5a2f544786e3 (patch) | |
tree | 1e6e2f698c17a9ed75e92caf4131ef1f6b145639 /src | |
parent | bbf1192b86547710adaa306811ecc2aa557702de (diff) |
PowerPoint writer: Obey slide level option
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Writers/Powerpoint.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Powerpoint.hs b/src/Text/Pandoc/Writers/Powerpoint.hs index d5627f51c..ab3b2eabf 100644 --- a/src/Text/Pandoc/Writers/Powerpoint.hs +++ b/src/Text/Pandoc/Writers/Powerpoint.hs @@ -86,6 +86,9 @@ writePowerpoint opts (Pandoc meta blks) = do , envDistArchive = distArchive , envUTCTime = utctime , envOpts = opts + , envSlideLevel = case writerSlideLevel opts of + Just n -> n + Nothing -> 2 } runP env def $ do pres <- blocksToPresentation blks' archv <- presentationToArchive pres |