Fix #130 - handle links inside blockquotes

srid · Apr 25, 2020 · f72a8c7 · f72a8c7
1 parent 6e143c0
commit f72a8c7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git 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
@@ -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
       _ -> []