@@ -118,15 +118,18 @@ blockToTextile opts (Header level inlines) = do
118118 let prefix = 'h' : (show level ++ ". ")
119119 return $ prefix ++ contents ++ "\n"
120120
121+blockToTextile _ (CodeBlock (_,classes,_) str) | any (all isSpace) (lines str) =
122+ return $ "<pre" ++ classes' ++ ">\n" ++ escapeStringForXML str ++
123+ "\n</pre>\n"
124+ where classes' = if null classes
125+ then ""
126+ else " class=\"" ++ unwords classes ++ "\""
127+
121128blockToTextile _ (CodeBlock (_,classes,_) str) =
122− return $ "bc" ++ classes' ++ dots ++ escapeStringForXML str ++ "\n"
129+ return $ "bc" ++ classes' ++ ". " ++ escapeStringForXML str ++ "\n"
123130 where classes' = if null classes
124131 then ""
125132 else "(" ++ unwords classes ++ ")"
126− dots = if any isBlank (lines str)
127− then ".. "
128− else ". "
129− isBlank = all isSpace
130133
131134blockToTextile opts (BlockQuote bs@[Para _]) = do
132135 contents <- blockListToTextile opts bs