aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2018-01-03 22:07:07 -0500
committerJesse Rosenthal <jrosenthal@jhu.edu>2018-01-03 22:07:07 -0500
commit85f8d9285063767e52266243d2b10af1cbe5f856 (patch)
treeb8145539a783db86bbecfb497b58ac86a83f7112 /src/Text/Pandoc
parentbf15258d3b18bd2a7daae803b52a9b851eb204eb (diff)
downloadpandoc-85f8d9285063767e52266243d2b10af1cbe5f856.tar.gz
Powerpoint writer: Ignore Notes div
For now, ignore notes div for parity with other slide outputs.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Powerpoint.hs1
1 files changed, 1 insertions, 0 deletions
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