diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-30 22:59:13 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-30 22:59:13 +0000 |
| commit | dcb1dd1ee4311fa2ae26c8ae43418d5991740cf2 (patch) | |
| tree | c72ccc69784160748747b80eb9b75e1cae01f97f /src/Text/Pandoc/Writers/RST.hs | |
| parent | 7ff270683828b3a3b416220c47321205156711da (diff) | |
| download | pandoc-dcb1dd1ee4311fa2ae26c8ae43418d5991740cf2.tar.gz | |
Replaced individual wrapping routines in RST, Man, and
Markdown writers with 'wrapped' from Text.Pandoc.Shared.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@967 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index 70df479b5..434cd1cf7 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -107,15 +107,9 @@ pictToRST opts (label, (src, _)) = do -- | Take list of inline elements and return wrapped doc. wrappedRST :: WriterOptions -> [Inline] -> State WriterState Doc wrappedRST opts inlines = - mapM (wrappedRSTSection opts) (splitBy LineBreak inlines) >>= + mapM (wrapped (inlineListToRST opts)) (splitBy LineBreak inlines) >>= return . vcat -wrappedRSTSection :: WriterOptions -> [Inline] -> State WriterState Doc -wrappedRSTSection opts sect = do - let chunks = splitBy Space sect - chunks' <- mapM (inlineListToRST opts) chunks - return $ fsep chunks' - -- | Escape special characters for RST. escapeString :: String -> String escapeString = escapeStringUsing (backslashEscapes "`\\|*_") |