@@ -136,6 +136,7 @@ parseBlock = choice [ parseList
136136 , parseSkippedContent
137137 , parseCodeBlock
138138 , parseHeader
139+ , parseMacroDef
139140 , parseSkipMacro
140141 ]
141142
@@ -567,6 +568,17 @@ definitionListItem = try $ do
567568parseDefinitionList :: PandocMonad m => ManParser m Blocks
568569parseDefinitionList = definitionList <$> many1 definitionListItem
569570
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+
570582-- In case of weird man file it will be parsed succesfully
571583parseSkipMacro :: PandocMonad m => ManParser m Blocks
572584parseSkipMacro = do