From 6c6ac9f22e746f4883412013f6369bf985831e91 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Sat, 17 Feb 2018 09:40:39 -0500 Subject: Powerpoint writer: Move notes slides into data tree. --- src/Text/Pandoc/Class.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src') diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index ae538046a..aa0379942 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -718,6 +718,14 @@ getDefaultReferencePptx = do , "ppt/tableStyles.xml" , "ppt/theme/theme1.xml" , "ppt/viewProps.xml" + -- These relate to notes slides. + , "ppt/notesMasters/notesMaster1.xml" + , "ppt/notesMasters/_rels/notesMaster1.xml.rels" + , "ppt/notesSlides/notesSlide1.xml" + , "ppt/notesSlides/_rels/notesSlide1.xml.rels" + , "ppt/notesSlides/notesSlide2.xml" + , "ppt/notesSlides/_rels/notesSlide2.xml.rels" + , "ppt/theme/theme2.xml" ] let toLazy = BL.fromChunks . (:[]) let pathToEntry path = do -- cgit v1.2.3