@@ -650,9 +650,8 @@ bareIP = msatisfy isBareIP where
650parseCodeBlock :: PandocMonad m => ManParser m Blocks
650parseCodeBlock :: PandocMonad m => ManParser m Blocks
651parseCodeBlock = try $ do
651parseCodeBlock = try $ do
652 optional bareIP -- some people indent their code
652 optional bareIP -- some people indent their code
654− toks <- many (mline <|> memptyLine)
653+ toks <- (mmacro "nf" *> many (mline <|> memptyLine) <* mmacro "fi")
655− mmacro "fi"
654+ <|> (mmacro "EX" *> many (mline <|> memptyLine) <* mmacro "EE")
656 return $ codeBlock (intercalate "\n" . catMaybes $
655 return $ codeBlock (intercalate "\n" . catMaybes $
657 extractText <$> toks)
656 extractText <$> toks)