git.iko.soy/typeable/pandoc
on master help sign in
Man reader: skip macro definitions for now.
3e23b47John MacFarlane
src/Text/Pandoc/Readers/Man.hs+12
compare with master
unifiedsplit
@@ -136,6 +136,7 @@ parseBlock = choice [ parseList
136 , parseSkippedContent
136 , parseSkippedContent
137 , parseCodeBlock
137 , parseCodeBlock
138 , parseHeader
138 , parseHeader
139+ , parseMacroDef
139 , parseSkipMacro
140 , parseSkipMacro
140 ]
141 ]
141
142
@@ -567,6 +568,17 @@ definitionListItem = try $ do
567parseDefinitionList :: PandocMonad m => ManParser m Blocks
568parseDefinitionList :: PandocMonad m => ManParser m Blocks
568parseDefinitionList = definitionList <$> many1 definitionListItem
569parseDefinitionList = definitionList <$> many1 definitionListItem
569
570
571+parseMacroDef :: PandocMonad m => ManParser m Blocks
572+parseMacroDef = do
573+ MMacro _ _args <- mmacro "de"
574+ bs <- manyTill parseBlock endMacro
575+ return mempty -- TODO for now just skip it
576+
577+ where
578+ endMacro = (msatisfy (\t -> case t of
579+ MEndMacro -> True
580+ _ -> False))
581+
570-- In case of weird man file it will be parsed succesfully
582-- In case of weird man file it will be parsed succesfully
571parseSkipMacro :: PandocMonad m => ManParser m Blocks
583parseSkipMacro :: PandocMonad m => ManParser m Blocks
572parseSkipMacro = do
584parseSkipMacro = do