summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2017-12-28 07:47:07 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2017-12-28 07:47:07 -0500
commit52a4cf669970881424b426c654dc5a2f544786e3 (patch)
tree1e6e2f698c17a9ed75e92caf4131ef1f6b145639
parentbbf1192b86547710adaa306811ecc2aa557702de (diff)
PowerPoint writer: Obey slide level option
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint.hs3
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