diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-08-02 21:07:40 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-02 21:07:40 -0700 |
| commit | 214fef9e27963b0984933ed97bd4554460e102e6 (patch) | |
| tree | e591df4889d42120515331e2c6d046998378aa61 /src/Text/Pandoc | |
| parent | b98049ee6c126fb6a6834e0525b37430490131dd (diff) | |
| download | pandoc-214fef9e27963b0984933ed97bd4554460e102e6.tar.gz | |
Made markdown writer sensitive to Ext_table_captions.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |