diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-22 11:13:35 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-22 11:13:35 -0700 |
| commit | 44b1cd620dce63239a37294737fbe9e40bee0c96 (patch) | |
| tree | 396bb41dc6d5796a66a2b7b6ab4eab5808d8264b | |
| parent | 22078a8690190d5832fd99c36cb73d34b0bd00bd (diff) | |
| download | pandoc-44b1cd620dce63239a37294737fbe9e40bee0c96.tar.gz | |
Man reader: support .TQ macro.
| -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 |