From 44b1cd620dce63239a37294737fbe9e40bee0c96 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 22 Oct 2018 11:13:35 -0700 Subject: Man reader: support .TQ macro. --- src/Text/Pandoc/Readers/Man.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3