diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-11-25 12:24:14 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-11-25 12:24:14 -0800 |
| commit | dc92a628833a3bf8f528c480fac80d926f63f9b6 (patch) | |
| tree | 8d8c6920161e0541af587f58474acb964d3f73d1 | |
| parent | 6c0943000d4a4fd6f7b88c9dbafa61bdb8b35eef (diff) | |
| download | pandoc-dc92a628833a3bf8f528c480fac80d926f63f9b6.tar.gz | |
RST writer: Ensure blank line after figure.
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index a8d0027f8..40d6fdf18 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -173,7 +173,7 @@ blockToRST (Para [Image txt (src,'f':'i':'g':':':tit)]) = do capt <- inlineListToRST txt let fig = "figure:: " <> text src let alt = ":alt: " <> if null tit then capt else text tit - return $ hang 3 ".. " $ fig $$ alt $+$ capt $$ blankline + return $ hang 3 ".. " (fig $$ alt $+$ capt) $$ blankline blockToRST (Para inlines) | LineBreak `elem` inlines = do -- use line block if LineBreaks lns <- mapM inlineListToRST $ splitBy (==LineBreak) inlines |