diff --git a/CHANGELOG.md b/CHANGELOG.md index 47e81310d..ce1fb439c 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -21,6 +21,7 @@ - `neuron ... rib serve` is now `neuron rib -wS`. - Bug fixes - Fix regression in neuron library use + - #130: Handle links inside blockquotes - UI - Tags are restyled and positioned below - Produce compact CSS in HTML head diff --git a/src/Text/MMark/MarkdownLink.hs b/src/Text/MMark/MarkdownLink.hs index af26dffd0..6ec88fee8 100644 --- a/src/Text/MMark/MarkdownLink.hs +++ b/src/Text/MMark/MarkdownLink.hs @@ -34,6 +34,7 @@ extractLinks = Set.toList . Set.fromList . flip runScanner (Fold go [] id) relevantInlines = \case Ext.Naked xs -> toList xs Ext.Paragraph xs -> toList xs + Ext.Blockquote xs -> concatMap relevantInlines xs Ext.OrderedList _ xs -> concat $ concatMap (fmap relevantInlines) xs Ext.UnorderedList xs -> concat $ concatMap (fmap relevantInlines) xs _ -> []