diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-12-03 15:10:13 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-12-03 15:10:13 -0800 |
| commit | 4060df6891bf38090de90081c081e80be1565193 (patch) | |
| tree | dad806f4ec959106d7561897200321d839916702 | |
| parent | 80e86109a2a27518c022b94b54dbc00578787bbc (diff) | |
| download | pandoc-4060df6891bf38090de90081c081e80be1565193.tar.gz | |
Markdown writer: include needed whitespace after HTML figure.
We use HTML for a figure in markdown dialects that can't
represent it natively.
Closes #5121.
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 2 | ||||
| -rw-r--r-- | test/command/5121.md | 13 |
2 files changed, 14 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 6f3160ed2..c0c6e8ebf 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -463,7 +463,7 @@ blockToMarkdown' opts (Para [Image attr alt (src,'f':'i':'g':':':tit)]) | isEnabled Ext_raw_html opts && not (isEnabled Ext_link_attributes opts) && attr /= nullAttr = -- use raw HTML - (text . T.unpack . T.strip) <$> + ((<> blankline) . text . T.unpack . T.strip) <$> writeHtml5String opts{ writerTemplate = Nothing } (Pandoc nullMeta [Para [Image attr alt (src,"fig:" ++ tit)]]) | otherwise = blockToMarkdown opts (Para [Image attr alt (src,tit)]) diff --git a/test/command/5121.md b/test/command/5121.md new file mode 100644 index 000000000..9003cdfec --- /dev/null +++ b/test/command/5121.md @@ -0,0 +1,13 @@ +``` +% pandoc -f markdown -t markdown_strict +{width=500px} + +## Header 2 +^D +<figure> +<img src="./my-figure.jpg" alt="My caption" width="500" /><figcaption>My caption</figcaption> +</figure> + +Header 2 +-------- +``` |