@@ -727,9 +727,14 @@ definitionListItem :: PandocMonad m
727definitionListItem = try $ do
727definitionListItem = try $ do
728 mmacro "TP" -- args specify indent level, can ignore
728 mmacro "TP" -- args specify indent level, can ignore
729 term <- parseInline
729 term <- parseInline
730+ moreterms <- many $ try $ do
732+ newterm <- parseInline
730 inls <- parseInlines
734 inls <- parseInlines
731 continuations <- mconcat <$> many continuation
735 continuations <- mconcat <$> many continuation
736+ return ( mconcat (intersperse B.linebreak (term:moreterms))
732− return (term, [para inls <> continuations])
737+ , [para inls <> continuations])
734parseDefinitionList :: PandocMonad m => ManParser m Blocks
739parseDefinitionList :: PandocMonad m => ManParser m Blocks
735parseDefinitionList = definitionList <$> many1 definitionListItem
740parseDefinitionList = definitionList <$> many1 definitionListItem