diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-09-30 09:25:54 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-09-30 09:25:54 -0700 |
commit | 08ac33815b1a744ccadd99792d942355f17a62e6 (patch) | |
tree | bcac2e67106241b7d7957cf2201a50360500ba0a | |
parent | 29e1c9529f4b9f6cd02f89a477a1bc57943e6f26 (diff) |
RST writer: Wrap line blocks with spaces before continuations.
Improves on fix to #1656.
-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 a32d3ebac..a96670c96 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -177,7 +177,7 @@ blockToRST (Para [Image txt (src,'f':'i':'g':':':tit)]) = do blockToRST (Para inlines) | LineBreak `elem` inlines = do -- use line block if LineBreaks lns <- mapM inlineListToRST $ splitBy (==LineBreak) inlines - return $ (vcat $ map (nowrap . (text "| " <>)) lns) <> blankline + return $ (vcat $ map (hang 2 (text "| ")) lns) <> blankline | otherwise = do contents <- inlineListToRST inlines return $ contents <> blankline |