aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Man.hs12
1 files changed, 12 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index d081a5752..6a89f25d9 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -136,6 +136,7 @@ parseBlock = choice [ parseList
, parseSkippedContent
, parseCodeBlock
, parseHeader
+ , parseMacroDef
, parseSkipMacro
]
@@ -567,6 +568,17 @@ definitionListItem = try $ do
parseDefinitionList :: PandocMonad m => ManParser m Blocks
parseDefinitionList = definitionList <$> many1 definitionListItem
+parseMacroDef :: PandocMonad m => ManParser m Blocks
+parseMacroDef = do
+ MMacro _ _args <- mmacro "de"
+ bs <- manyTill parseBlock endMacro
+ return mempty -- TODO for now just skip it
+
+ where
+ endMacro = (msatisfy (\t -> case t of
+ MEndMacro -> True
+ _ -> False))
+
-- In case of weird man file it will be parsed succesfully
parseSkipMacro :: PandocMonad m => ManParser m Blocks
parseSkipMacro = do