@@ -411,6 +411,15 @@ blockToParagraphs (OrderedList listAttr blksLst) = do
411 , pPropMarginLeft = Nothing
411 , pPropMarginLeft = Nothing
413 concatMapM multiParBullet blksLst
413 concatMapM multiParBullet blksLst
414+blockToParagraphs (DefinitionList entries) = do
415+ let go :: PandocMonad m => ([Inline], [[Block]]) -> P m [Paragraph]
416+ go (ils, blksLst) = do
417+ term <-blockToParagraphs $ Para [Strong ils]
418+ -- For now, we'll treat each definition term as a
419+ -- blockquote. We can extend this further later.
420+ definition <- concatMapM (blockToParagraphs . BlockQuote) blksLst
421+ return $ term ++ definition
422+ concatMapM go entries
414blockToParagraphs (Div _ blks) = concatMapM blockToParagraphs blks
423blockToParagraphs (Div _ blks) = concatMapM blockToParagraphs blks
416blockToParagraphs blk = do
425blockToParagraphs blk = do