@@ -466,9 +466,14 @@ parseInlines = do
466 comment :: PandocMonad m => ManParser m Inlines
466 comment :: PandocMonad m => ManParser m Inlines
467 comment = mcomment >> return mempty
467 comment = mcomment >> return mempty
469+bareIP :: PandocMonad m => ManParser m ManToken
470+bareIP = msatisfy isBareIP where
471+ isBareIP (MMacro "IP" []) = True
470parseCodeBlock :: PandocMonad m => ManParser m Blocks
474parseCodeBlock :: PandocMonad m => ManParser m Blocks
471parseCodeBlock = try $ do
475parseCodeBlock = try $ do
476+ optional bareIP -- some people indent their code
472 mmacro "nf"
477 mmacro "nf"
473 toks <- many (mstr <|> mline <|> mmaybeLink <|> memptyLine <|> mcomment)
478 toks <- many (mstr <|> mline <|> mmaybeLink <|> memptyLine <|> mcomment)
474 mmacro "fi"
479 mmacro "fi"