diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-23 09:37:09 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-23 09:37:28 -0700 |
| commit | 81d2372f572485a5fadde78c75e0a08d55a80c7f (patch) | |
| tree | bcc2975ba061730c89d33ab13f047d8733a09740 /src | |
| parent | 0dfe9993021c48e8cfea87a699d402faf993b2b8 (diff) | |
| download | pandoc-81d2372f572485a5fadde78c75e0a08d55a80c7f.tar.gz | |
Man reader: support .nop.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 701ab55d5..cb19bc7c8 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -294,19 +294,22 @@ lexMacro = do char '.' <|> char '\'' many spacetab macroName <- many (satisfy (not . isSpace)) - args <- lexArgs - - case macroName of - "" -> return mempty - "\\\"" -> return mempty - "\\#" -> return mempty - "de" -> lexMacroDef args - "de1" -> lexMacroDef args - "ds" -> lexStringDef args - "ds1" -> lexStringDef args - "sp" -> return $ singleTok MEmptyLine - "so" -> lexIncludeFile args - _ -> resolveMacro macroName args pos + if macroName == "nop" + then return mempty + else do + args <- lexArgs + + case macroName of + "" -> return mempty + "\\\"" -> return mempty + "\\#" -> return mempty + "de" -> lexMacroDef args + "de1" -> lexMacroDef args + "ds" -> lexStringDef args + "ds1" -> lexStringDef args + "sp" -> return $ singleTok MEmptyLine + "so" -> lexIncludeFile args + _ -> resolveMacro macroName args pos lexIncludeFile :: PandocMonad m => [Arg] -> ManLexer m ManTokens |