diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-03-15 14:48:01 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-03-15 14:48:01 -0700 |
| commit | 451019290b01dac359ae5d7b55e4fd5829ed9faa (patch) | |
| tree | a0356f9b9de47ebbc38df7902242f2525a104544 | |
| parent | f6e46b7146850a139f280375ba4bca4455f1e433 (diff) | |
| download | pandoc-451019290b01dac359ae5d7b55e4fd5829ed9faa.tar.gz | |
AsciiDoc writer: insert some needed blank lines.
Closes #1860.
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 2 | ||||
| -rw-r--r-- | tests/writer.asciidoc | 5 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs index e5b8c5167..cf66aa9d9 100644 --- a/src/Text/Pandoc/Writers/AsciiDoc.hs +++ b/src/Text/Pandoc/Writers/AsciiDoc.hs @@ -126,7 +126,7 @@ blockToAsciiDoc :: WriterOptions -- ^ Options blockToAsciiDoc _ Null = return empty blockToAsciiDoc opts (Plain inlines) = do contents <- inlineListToAsciiDoc opts inlines - return $ contents <> cr + return $ contents <> blankline blockToAsciiDoc opts (Para [Image alt (src,'f':'i':'g':':':tit)]) = do blockToAsciiDoc opts (Para [Image alt (src,tit)]) blockToAsciiDoc opts (Para inlines) = do diff --git a/tests/writer.asciidoc b/tests/writer.asciidoc index 4b063fe68..08fe1de8b 100644 --- a/tests/writer.asciidoc +++ b/tests/writer.asciidoc @@ -375,15 +375,19 @@ HTML Blocks Simple block on one line: foo + And nested without indentation: foo bar + Interpreted markdown in a table: This is _emphasized_ + And this is *strong* + Here’s a simple block: foo @@ -405,6 +409,7 @@ As should this: Now, nested: foo + This should just be an HTML comment: Multiline: |