From 85f8d9285063767e52266243d2b10af1cbe5f856 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Wed, 3 Jan 2018 22:07:07 -0500 Subject: Powerpoint writer: Ignore Notes div For now, ignore notes div for parity with other slide outputs. --- src/Text/Pandoc/Writers/Powerpoint.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Text/Pandoc/Writers/Powerpoint.hs b/src/Text/Pandoc/Writers/Powerpoint.hs index e5c29b75a..c53f2f66c 100644 --- a/src/Text/Pandoc/Writers/Powerpoint.hs +++ b/src/Text/Pandoc/Writers/Powerpoint.hs @@ -441,6 +441,7 @@ blockToParagraphs (DefinitionList entries) = do definition <- concatMapM (blockToParagraphs . BlockQuote) blksLst return $ term ++ definition concatMapM go entries +blockToParagraphs (Div (_, ("notes" : []), _) _) = return [] blockToParagraphs (Div _ blks) = concatMapM blockToParagraphs blks blockToParagraphs blk = do P.report $ BlockNotRendered blk -- cgit v1.2.3