From 52a4cf669970881424b426c654dc5a2f544786e3 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Thu, 28 Dec 2017 07:47:07 -0500
Subject: PowerPoint writer: Obey slide level option

---
 src/Text/Pandoc/Writers/Powerpoint.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

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
-- 
cgit v1.2.3