git.iko.soy/typeable/pandoc
on master help sign in
Made markdown writer sensitive to Ext_table_captions.
214fef9John MacFarlane
src/Text/Pandoc/Writers/Markdown.hs+1−1
compare with master
unifiedsplit
@@ -280,7 +280,7 @@ blockToMarkdown opts (BlockQuote blocks) = do
280 return $ (prefixed leader contents) <> blankline
280 return $ (prefixed leader contents) <> blankline
281blockToMarkdown opts (Table caption aligns widths headers rows) = do
281blockToMarkdown opts (Table caption aligns widths headers rows) = do
282 caption' <- inlineListToMarkdown opts caption
282 caption' <- inlineListToMarkdown opts caption
283− let caption'' = if null caption
283+ let caption'' = if null caption || not (isEnabled Ext_table_captions opts)
284 then empty
284 then empty
285 else blankline <> ": " <> caption' <> blankline
285 else blankline <> ": " <> caption' <> blankline
286 headers' <- mapM (blockListToMarkdown opts) headers
286 headers' <- mapM (blockListToMarkdown opts) headers