From 214fef9e27963b0984933ed97bd4554460e102e6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 2 Aug 2012 21:07:40 -0700 Subject: Made markdown writer sensitive to Ext_table_captions. --- src/Text/Pandoc/Writers/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index fccdd66d5..f8681825f 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -280,7 +280,7 @@ blockToMarkdown opts (BlockQuote blocks) = do return $ (prefixed leader contents) <> blankline blockToMarkdown opts (Table caption aligns widths headers rows) = do caption' <- inlineListToMarkdown opts caption - let caption'' = if null caption + let caption'' = if null caption || not (isEnabled Ext_table_captions opts) then empty else blankline <> ": " <> caption' <> blankline headers' <- mapM (blockListToMarkdown opts) headers -- cgit v1.2.3