diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-08-04 11:34:01 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-04 11:34:01 -0700 |
commit | 3f913c0cc504e574ffb2b8fd6f0a460fc606b74d (patch) | |
tree | c1bd4ec58f6be94e3278d214e76c5e119a3f72fe /src/Text/Pandoc/Writers/Org.hs | |
parent | c19c6fdc505a8cd89dccdfa28bc28125d8b3a247 (diff) |
Don't include empty captions in figures.
Closes #581.
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 383a897b5..b885a7a40 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -115,9 +115,12 @@ blockToOrg :: Block -- ^ Block element blockToOrg Null = return empty blockToOrg (Plain inlines) = inlineListToOrg inlines blockToOrg (Para [Image txt (src,tit)]) = do - capt <- inlineListToOrg txt + capt <- if null txt + then return empty + else (\c -> "#+CAPTION: " <> c <> blankline) `fmap` + inlineListToOrg txt img <- inlineToOrg (Image txt (src,tit)) - return $ "#+CAPTION: " <> capt <> blankline <> img + return $ capt <> img blockToOrg (Para inlines) = do contents <- inlineListToOrg inlines return $ contents <> blankline |