diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-09 21:07:52 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-09 21:07:52 +0000 |
| commit | 8add1cf821c050ecb53089a92d1e37e523f75515 (patch) | |
| tree | 3f6ad8315e4b7b9643f9240aaffafb2d054a0a83 /Text | |
| parent | 3337b46e3030e0e1da6c5d9602a03100d5881b87 (diff) | |
OpenDocument writer: don't convert 4 spaces to tab in verbatim block.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1281 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text')
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index f956c1fb8..4d82f0207 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -155,11 +155,7 @@ withParagraphStyle _ _ [] = return empty inPreformattedTags :: String -> State WriterState Doc inPreformattedTags s = do n <- paraStyle "Preformatted_20_Text" [] - return . inParagraphTagsWithStyle ("P" ++ show n) . hcat . rest $ s - where rest (' ':' ':' ':' ':xs) = selfClosingTag "text:tab" [] : rest xs - rest ( x:xs) = char x : rest xs - rest [] = [] - + return . inParagraphTagsWithStyle ("P" ++ show n) . text $ s orderedListToOpenDocument :: WriterOptions -> Int -> [[Block]] -> State WriterState Doc orderedListToOpenDocument o pn bs = |