diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-04 01:04:56 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-04 01:04:56 +0000 |
commit | 99959b68e9ebbe48e952ce915368d6fc88a7d41a (patch) | |
tree | aa25d2ffcddacb044a35fa48865794d7d013dab6 /src/Text/Pandoc/Writers/RST.hs | |
parent | e4880319e66493948e198cdd8b3d18ba572a2967 (diff) | |
download | pandoc-99959b68e9ebbe48e952ce915368d6fc88a7d41a.tar.gz |
+ Improved text wrapping algorithm in markdown, docbook, and RST writers.
LineBreaks no longer cause ugly wrapping in Markdown output.
+ Replaced splitBySpace with the more general, polymorphic function
splitBy (in Text/Pandoc/Shared).
git-svn-id: https://pandoc.googlecode.com/svn/trunk@411 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index 8b2563eb4..9184e0200 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -59,9 +59,10 @@ escapeString = backslashEscape "`\\|*_" -- and another containing references. wrappedRST :: [Inline] -> (Doc, Doc) wrappedRST lst = - let words = splitBySpace lst in - ( fsep $ map (fcat . (map (fst . inlineToRST))) words, - vcat (map (snd . inlineToRST) lst) ) + let wrap_section sec = fsep $ map (fst . inlineListToRST) $ + (splitBy Space sec) in + ((vcat $ map wrap_section $ (splitBy LineBreak lst)), + vcat $ map (snd . inlineToRST) lst) -- | Remove reference keys, and make sure there are blanks before each list. reformatBlocks :: [Block] -> [Block] |