From 8cac65a8566876da21eeeb8e691052759b4c87a4 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Thu, 1 Jul 2021 11:29:42 +0200
Subject: find backlinks case-insensitively

---
 moar.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/moar.el b/moar.el
index 21a9a78..ac593f4 100644
--- a/moar.el
+++ b/moar.el
@@ -7,6 +7,7 @@
 
 (require 'seq)
 (require 'pcase)
+(require 'cl-extra)
 (eval-when-compile (require 'subr-x))
 
 (defface moar-title-face
@@ -168,7 +169,8 @@
                    #'ivy-read
                  #'completing-read))
          (links (mapcar #'car
-                        (seq-filter #'(lambda (x) (equal (cdr x) current-title))
+                        (seq-filter #'(lambda (x)
+                                        (cl-equalp (cdr x) current-title))
                                     links-titles)))
          (target (funcall read "Go to backlink: " links)))
     (when target
-- 
cgit 1.4.1