diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2021-07-01 11:29:42 +0200 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2021-07-01 11:29:42 +0200 |
| commit | 8cac65a8566876da21eeeb8e691052759b4c87a4 (patch) | |
| tree | 515bffcfc592890d949c91c66868ae35fda79bbe | |
| parent | ee3193ab2b9e0ff743ff0f8ef16afe948f62cfe8 (diff) | |
| download | moar-8cac65a8566876da21eeeb8e691052759b4c87a4.tar.gz moar-8cac65a8566876da21eeeb8e691052759b4c87a4.tar.xz moar-8cac65a8566876da21eeeb8e691052759b4c87a4.zip | |
find backlinks case-insensitively
| -rw-r--r-- | moar.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |