From dfd1796cf2940a151145f96265d75904b7313493 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 10 Jan 2019 11:55:21 -0800 Subject: Make 'plain' RawBlocks work for 'plain' output. --- src/Text/Pandoc/Writers/Markdown.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index f19f35588..84fc77a08 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -472,6 +472,11 @@ blockToMarkdown' opts b@(RawBlock f str) return $ if plain then empty else text str <> text "\n" + | f == "plain" = do + plain <- asks envPlain + return $ if plain + then text str <> text "\n" + else empty | otherwise = do report $ BlockNotRendered b return empty -- cgit v1.2.3