Org writer: ensure blank line after figure

An Org-mode figure should be surrounded by blank lines.  The figure
would be recognized regardless, but images in the following line would
unintentionally be treated as figures as well.
This commit is contained in:
Albert Krewinkel 2016-08-18 14:32:59 +02:00
parent 91afa513ad
commit d669425640
No known key found for this signature in database
GPG key ID: 388DC0B21F631124
2 changed files with 2 additions and 1 deletions

View file

@ -160,7 +160,7 @@ blockToOrg (Para [Image attr txt (src,'f':'i':'g':':':tit)]) = do
then return empty
else ("#+CAPTION: " <>) `fmap` inlineListToOrg txt
img <- inlineToOrg (Image attr txt (src,tit))
return $ capt $$ img
return $ capt $$ img $$ blankline
blockToOrg (Para inlines) = do
contents <- inlineListToOrg inlines
return $ contents <> blankline

View file

@ -809,6 +809,7 @@ From "Voyage dans la Lune" by Georges Melies (1902):
#+CAPTION: lalune
[[lalune.jpg]]
Here is a movie [[movie.jpg]] icon.
--------------