diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 83e4fc681..5d75bc72c 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -727,9 +727,14 @@ definitionListItem :: PandocMonad m definitionListItem = try $ do mmacro "TP" -- args specify indent level, can ignore term <- parseInline + moreterms <- many $ try $ do + mmacro "TQ" + newterm <- parseInline + return newterm inls <- parseInlines continuations <- mconcat <$> many continuation - return (term, [para inls <> continuations]) + return ( mconcat (intersperse B.linebreak (term:moreterms)) + , [para inls <> continuations]) parseDefinitionList :: PandocMonad m => ManParser m Blocks parseDefinitionList = definitionList <$> many1 definitionListItem |