Made markdown writer sensitive to Ext_table_captions.
commit214fef9e27963b0984933ed97bd4554460e102e6
authorJohn MacFarlane <jgm@berkeley.edu>
dateThu 2 Aug 2012, 21:07 (14 years ago)
parentb98049e
src/Text/Pandoc/Writers/Markdown.hs+1−1
@@ -280,7 +280,7 @@ blockToMarkdown opts (BlockQuote blocks) = do
280280 return $ (prefixed leader contents) <> blankline
281281blockToMarkdown opts (Table caption aligns widths headers rows) = do
282282 caption' <- inlineListToMarkdown opts caption
283− let caption'' = if null caption
283+ let caption'' = if null caption || not (isEnabled Ext_table_captions opts)
284284 then empty
285285 else blankline <> ": " <> caption' <> blankline
286286 headers' <- mapM (blockListToMarkdown opts) headers