diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-22 11:16:00 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-22 11:16:00 -0700 |
| commit | 7a111d2d334687b3a099d260ffd6bf774453d273 (patch) | |
| tree | 43ce5537354c062d7387fbf488d5bc52a099d205 /src | |
| parent | 44b1cd620dce63239a37294737fbe9e40bee0c96 (diff) | |
| download | pandoc-7a111d2d334687b3a099d260ffd6bf774453d273.tar.gz | |
Man reader: Support .EX/.EE macros.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 5d75bc72c..6916e56db 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -650,9 +650,8 @@ bareIP = msatisfy isBareIP where parseCodeBlock :: PandocMonad m => ManParser m Blocks parseCodeBlock = try $ do optional bareIP -- some people indent their code - mmacro "nf" - toks <- many (mline <|> memptyLine) - mmacro "fi" + toks <- (mmacro "nf" *> many (mline <|> memptyLine) <* mmacro "fi") + <|> (mmacro "EX" *> many (mline <|> memptyLine) <* mmacro "EE") return $ codeBlock (intercalate "\n" . catMaybes $ extractText <$> toks) |