@@ -379,9 +379,10 @@ endmacro name = void (mmacro name)
380parseCodeBlock :: PandocMonad m => ManParser m Blocks
380parseCodeBlock :: PandocMonad m => ManParser m Blocks
381parseCodeBlock = try $ do
381parseCodeBlock = try $ do
382− optional bareIP -- some people indent their code
382+ optional (bareIP <|> mmacro "in") -- some people indent their code
383 toks <- (mmacro "nf" *> manyTill codeline (endmacro "fi"))
383 toks <- (mmacro "nf" *> manyTill codeline (endmacro "fi"))
384 <|> (mmacro "EX" *> manyTill codeline (endmacro "EE"))
384 <|> (mmacro "EX" *> manyTill codeline (endmacro "EE"))
385+ optional (mmacro "in")
385 return $ codeBlock (intercalate "\n" $ catMaybes toks)
386 return $ codeBlock (intercalate "\n" $ catMaybes toks)