From 7234a79104ab8cf8358bdab153d5eefbcefc2e9a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 23 Jan 2011 08:49:19 -0800
Subject: Textile writer: Use <pre> instead of bc.. for code with blank lines.

This has fewer interaction effects.
---
 src/Text/Pandoc/Writers/Textile.hs | 13 ++++++++-----
 tests/writer.textile               |  8 ++++++--
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs
index cb8f20a0a..4aaee0a32 100644
--- a/src/Text/Pandoc/Writers/Textile.hs
+++ b/src/Text/Pandoc/Writers/Textile.hs
@@ -118,15 +118,18 @@ blockToTextile opts (Header level inlines) = do
   let prefix = 'h' : (show level ++ ". ")
   return $ prefix ++ contents ++ "\n"
 
+blockToTextile _ (CodeBlock (_,classes,_) str) | any (all isSpace) (lines str) =
+  return $ "<pre"  ++ classes' ++ ">\n" ++ escapeStringForXML str ++
+           "\n</pre>\n"
+    where classes' = if null classes
+                        then ""
+                        else " class=\"" ++ unwords classes ++ "\""
+
 blockToTextile _ (CodeBlock (_,classes,_) str) =
-  return $ "bc" ++ classes' ++ dots ++ escapeStringForXML str ++ "\n"
+  return $ "bc" ++ classes' ++ ". " ++ escapeStringForXML str ++ "\n"
     where classes' = if null classes
                         then ""
                         else "(" ++ unwords classes ++ ")"
-          dots = if any isBlank (lines str)
-                    then ".. "
-                    else ". "
-          isBlank = all isSpace
 
 blockToTextile opts (BlockQuote bs@[Para _]) = do
   contents <- blockListToTextile opts bs
diff --git a/tests/writer.textile b/tests/writer.textile
index f0ff383f0..ee67a7f33 100644
--- a/tests/writer.textile
+++ b/tests/writer.textile
@@ -76,19 +76,23 @@ h1. Code Blocks
 
 Code:
 
-bc.. ---- (should be four hyphens)
+<pre>
+---- (should be four hyphens)
 
 sub status {
     print &quot;working&quot;;
 }
 
 this code block is indented by one tab
+</pre>
 
 And:
 
-bc..     this code block is indented by two tabs
+<pre>
+    this code block is indented by two tabs
 
 These should not be escaped:  \$ \\ \&gt; \[ \{
+</pre>
 
 <hr />
 
-- 
cgit v1.2.3