@@ -411,6 +411,15 @@ blockToParagraphs (OrderedList listAttr blksLst) = do
411411 , pPropMarginLeft = Nothing
412412 }}) $
413413 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
414423blockToParagraphs (Div _ blks) = concatMapM blockToParagraphs blks
415424-- TODO
416425blockToParagraphs blk = do