diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-09-27 01:23:44 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-09-27 01:23:44 +0000 |
| commit | 5b888e8b3be01aebb8ecf7ba4ebee61d2a3d3f31 (patch) | |
| tree | 6e6d4dce4443d0bc0e8e6bf8ebeb10b28ea3cb81 /src/Text/Pandoc/Writers/RST.hs | |
| parent | fa45b970c9b9e748728b58e9471e52139b770570 (diff) | |
| download | pandoc-5b888e8b3be01aebb8ecf7ba4ebee61d2a3d3f31.tar.gz | |
Added a writer option for wrapped text and a command-line option
'--no-wrap', which disables text wrapping. (Resolves Issue #26.)
+ Added support for '--no-wrap' to Main.hs.
+ Added wrapIfNeeded function to Text.Pandoc.Shared.
+ Use wrapIfNeeded instead of wrapped in the RST, Man, Docbook, and
Markdown writers.
+ Note: Not yet implemented in HTML, LaTeX, or ConTeXt writers.
No documentation yet.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1034 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index 2e02ee662..ddcbf95c0 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -109,9 +109,8 @@ pictToRST opts (label, (src, _)) = do -- | Take list of inline elements and return wrapped doc. wrappedRST :: WriterOptions -> [Inline] -> State WriterState Doc -wrappedRST opts inlines = - mapM (wrapped (inlineListToRST opts)) (splitBy LineBreak inlines) >>= - return . vcat +wrappedRST opts inlines = mapM (wrapIfNeeded opts (inlineListToRST opts)) + (splitBy LineBreak inlines) >>= return . vcat -- | Escape special characters for RST. escapeString :: String -> String |