Powerpoint writer: modify speaker notes in presentation.xml

We remove the `notesMasterIdLst` entry in `presentation.xml` if there
no speaker notes in the presentation.

1 files changed, 12 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
index 12b338b1c..1ed021086 100644
--- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
@@ -1340,7 +1340,18 @@ presentationToPresentationElement pres = do
         _                      -> Elem e
       modifySldIdLst ct = ct
 
-      newContent = map modifySldIdLst $ elContent element
+      removeSpeakerNotes' :: Content -> [Content]
+      removeSpeakerNotes' (Elem e) = case elName e of
+        (QName "notesMasterIdLst" _ _) -> []
+        _                              -> [Elem e]
+      removeSpeakerNotes' ct = [ct]
+
+      removeSpeakerNotes :: [Content] -> [Content]
+      removeSpeakerNotes = if not (hasSpeakerNotes pres)
+                           then concatMap removeSpeakerNotes'
+                           else id
+
+      newContent = removeSpeakerNotes $ map modifySldIdLst $ elContent element
 
   return $ element{elContent = newContent}