git.iko.soy/typeable/pandoc
on master help sign in
Man reader: support .nop.
commit81d2372f572485a5fadde78c75e0a08d55a80c7f authorJohn MacFarlane <jgm@berkeley.edu> dateTue 23 Oct 2018, 09:37 (8 years ago) parent0dfe999
1 file changed+16−13
src/Text/Pandoc/Readers/Man.hs+16−13
src/Text/Pandoc/Readers/Man.hs+16−13
@@ -294,19 +294,22 @@ lexMacro = do
294294 char '.' <|> char '\''
295295 many spacetab
296296 macroName <- many (satisfy (not . isSpace))
297− args <- lexArgs
298−
299− case macroName of
300− "" -> return mempty
301− "\\\"" -> return mempty
302− "\\#" -> return mempty
303− "de" -> lexMacroDef args
304− "de1" -> lexMacroDef args
305− "ds" -> lexStringDef args
306− "ds1" -> lexStringDef args
307− "sp" -> return $ singleTok MEmptyLine
308− "so" -> lexIncludeFile args
309− _ -> resolveMacro macroName args pos
297+ if macroName == "nop"
298+ then return mempty
299+ else do
300+ args <- lexArgs
301+
302+ case macroName of
303+ "" -> return mempty
304+ "\\\"" -> return mempty
305+ "\\#" -> return mempty
306+ "de" -> lexMacroDef args
307+ "de1" -> lexMacroDef args
308+ "ds" -> lexStringDef args
309+ "ds1" -> lexStringDef args
310+ "sp" -> return $ singleTok MEmptyLine
311+ "so" -> lexIncludeFile args
312+ _ -> resolveMacro macroName args pos
310313
311314
312315lexIncludeFile :: PandocMonad m => [Arg] -> ManLexer m ManTokens