From 8add1cf821c050ecb53089a92d1e37e523f75515 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Mon, 9 Jun 2008 21:07:52 +0000 Subject: 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 --- Text/Pandoc/Writers/OpenDocument.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'Text/Pandoc/Writers/OpenDocument.hs') 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 = -- cgit v1.2.3