diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Textile.hs | 2 | ||||
| -rw-r--r-- | tests/writer.textile | 16 |
2 files changed, 9 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs index f58d49483..0987e1314 100644 --- a/src/Text/Pandoc/Writers/Textile.hs +++ b/src/Text/Pandoc/Writers/Textile.hs @@ -126,7 +126,7 @@ blockToTextile _ (CodeBlock (_,classes,_) str) | any (all isSpace) (lines str) = else " class=\"" ++ unwords classes ++ "\"" blockToTextile _ (CodeBlock (_,classes,_) str) = - return $ "bc" ++ classes' ++ ". " ++ escapeStringForXML str ++ "\n" + return $ "bc" ++ classes' ++ ". " ++ str ++ "\n" where classes' = if null classes then "" else "(" ++ unwords classes ++ ")" diff --git a/tests/writer.textile b/tests/writer.textile index 2d4bff717..f3513884a 100644 --- a/tests/writer.textile +++ b/tests/writer.textile @@ -50,7 +50,7 @@ bq. This is a block quote. It is pretty short. Code in a block quote: bc. sub status { - print "working"; + print "working"; } A list: @@ -366,13 +366,13 @@ foo This should be a code block, though: -bc. <div> +bc. <div> foo -</div> +</div> As should this: -bc. <div>foo</div> +bc. <div>foo</div> Now, nested: @@ -402,7 +402,7 @@ Blah Code block: -bc. <!-- Comment --> +bc. <!-- Comment --> Just plain comment, with trailing spaces on the line: @@ -410,7 +410,7 @@ Just plain comment, with trailing spaces on the line: Code: -bc. <hr /> +bc. <hr /> Hr's: @@ -632,7 +632,7 @@ bq. Blockquoted: "http://example.com/":http://example.com/ Auto-links should not occur here: @<http://example.com/>@ -bc. or here: <http://example.com/> +bc. or here: <http://example.com/> <hr /> @@ -665,7 +665,7 @@ fn2. Here's the long note. This one contains multiple blocks. Subsequent blocks are indented to show that they belong to the footnote (as with list items). -bc. { <code> } +bc. { <code> } If you want, you can indent every line, but you can also be lazy and just indent the first line of each block. |