@@ -135,9 +135,18 @@ blockParsers = [ codeBlock
135135block :: GenParser Char ParserState Block
136136block = choice blockParsers <?> "block"
137137
138−-- | Code Blocks in Textile are between <pre> and </pre>
139138codeBlock :: GenParser Char ParserState Block
140−codeBlock = try $ do
139+codeBlock = codeBlockBc <|> codeBlockPre
140+
141+codeBlockBc :: GenParser Char ParserState Block
142+codeBlockBc = try $ do
143+ string "bc. "
144+ contents <- manyTill anyLine blanklines
145+ return $ CodeBlock ("",[],[]) $ unlines contents
146+
147+-- | Code Blocks in Textile are between <pre> and </pre>
148+codeBlockPre :: GenParser Char ParserState Block
149+codeBlockPre = try $ do
141150 htmlTag (tagOpen (=="pre") null)
142151 result' <- manyTill anyChar (try $ htmlTag (tagClose (=="pre")) >> blockBreak)
143152 -- drop leading newline if any