From d6694256404973a3a7675b97261e7a1914e8f059 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Thu, 18 Aug 2016 14:32:59 +0200
Subject: [PATCH] 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.
---
src/Text/Pandoc/Writers/Org.hs | 2 +-
tests/writer.org | 1 +
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index 283bb7d9c..85b7433e6 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -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
diff --git a/tests/writer.org b/tests/writer.org
index 100328c2c..b29a1865c 100644
--- a/tests/writer.org
+++ b/tests/writer.org
@@ -809,6 +809,7 @@ From "Voyage dans la Lune" by Georges Melies (1902):
#+CAPTION: lalune
[[lalune.jpg]]
+
Here is a movie [[movie.jpg]] icon.
--------------