AsciiDoc writer: insert some needed blank lines.

Closes #1860.
This commit is contained in:
John MacFarlane 2015-03-15 14:48:01 -07:00
parent f6e46b7146
commit 451019290b
2 changed files with 6 additions and 1 deletions

View file

@ -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

View file

@ -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*
Heres a simple block:
foo
@ -405,6 +409,7 @@ As should this:
Now, nested:
foo
This should just be an HTML comment:
Multiline: