From 07647f05f023206673803119bab805939b17c3d1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 28 Oct 2018 11:44:41 -0700 Subject: Man reader: skip .in used for indentation of code. --- src/Text/Pandoc/Readers/Man.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 87c39a4b9..e06ba2353 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -379,9 +379,10 @@ endmacro name = void (mmacro name) parseCodeBlock :: PandocMonad m => ManParser m Blocks parseCodeBlock = try $ do - optional bareIP -- some people indent their code + optional (bareIP <|> mmacro "in") -- some people indent their code toks <- (mmacro "nf" *> manyTill codeline (endmacro "fi")) <|> (mmacro "EX" *> manyTill codeline (endmacro "EE")) + optional (mmacro "in") return $ codeBlock (intercalate "\n" $ catMaybes toks) where -- cgit v1.2.3