From 44b1cd620dce63239a37294737fbe9e40bee0c96 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
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(-)

(limited to 'src')

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