git.iko.soy/typeable/pandoc
on master help sign in
Man reader: support .TQ macro.
commit44b1cd620dce63239a37294737fbe9e40bee0c96 authorJohn MacFarlane <jgm@berkeley.edu> dateMon 22 Oct 2018, 11:13 (8 years ago) parent22078a8
1 file changed+6−1
src/Text/Pandoc/Readers/Man.hs+6−1
src/Text/Pandoc/Readers/Man.hs+6−1
@@ -727,9 +727,14 @@ definitionListItem :: PandocMonad m
727727definitionListItem = try $ do
728728 mmacro "TP" -- args specify indent level, can ignore
729729 term <- parseInline
730+ moreterms <- many $ try $ do
731+ mmacro "TQ"
732+ newterm <- parseInline
733+ return newterm
730734 inls <- parseInlines
731735 continuations <- mconcat <$> many continuation
732− return (term, [para inls <> continuations])
736+ return ( mconcat (intersperse B.linebreak (term:moreterms))
737+ , [para inls <> continuations])
733738
734739parseDefinitionList :: PandocMonad m => ManParser m Blocks
735740parseDefinitionList = definitionList <$> many1 definitionListItem