Remove Note from plainify output

CHANGELOG.md

@@ -1,7 +1,10 @@
 
 ## Unreleased
 
-- `plainify`: Fix double scanning of inlines of wiki-links
+- Fixes
+    - `plainify`
+        - Fix double scanning of inlines of wiki-links
+        - Remove footnotes (\#3)
 
 ## 0.1.0.0
 

src/Commonmark/Extensions/WikiLink.hs

@@ -263,7 +263,15 @@ wikilinkSpec =
  TODO: extend on top of plainify from heist-extra
 -}
 plainify :: [B.Inline] -> Text
-plainify = W.query $ \case
+plainify = W.query plainify' . W.walk (mapMaybe removeInlineNotes)
+  where
+    removeInlineNotes :: B.Inline -> Maybe B.Inline
+    removeInlineNotes = \case
+      B.Note {} -> Nothing
+      a -> Just a
+
+plainify' :: [B.Inline] -> Text
+plainify' = W.query $ \case
   B.Str x -> x
   B.Code _attr x -> x
   B.Space -> " "

test/Commonmark/Extensions/WikiLinkSpec.hs

@@ -35,8 +35,7 @@ spec = do
         plainify <$> parseMdPara1 "[Hello](https://example.com)" `shouldBe` Right "Hello"
       it "with wikilink" $ do
         plainify <$> parseMdPara1 "[[World]]" `shouldBe` Right "[[World]]"
-      -- FIXME
-      xit "with footnote" $ do
+      it "with footnote" $ do
         plainify <$> parseMdPara1 "Hello[^1] World.\n\n[^1]: Some footnote." `shouldBe` Right "Hello World."
 
 -- | Parse Markdown with our wikilink parser enabled