@@ -466,9 +466,14 @@ parseInlines = do
466466 comment :: PandocMonad m => ManParser m Inlines
467467 comment = mcomment >> return mempty
468468
469+bareIP :: PandocMonad m => ManParser m ManToken
470+bareIP = msatisfy isBareIP where
471+ isBareIP (MMacro "IP" []) = True
472+ isBareIP _ = False
469473
470474parseCodeBlock :: PandocMonad m => ManParser m Blocks
471475parseCodeBlock = try $ do
476+ optional bareIP -- some people indent their code
472477 mmacro "nf"
473478 toks <- many (mstr <|> mline <|> mmaybeLink <|> memptyLine <|> mcomment)
474479 mmacro "fi"