From 22c35b19e6cd1d936d189d5e720df7ee9db4e332 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 17 Mar 2022 16:05:26 +0530
Subject: issue: Ignore case of keywords.

* tissue/issue.scm (issues): Downcase keywords to ignore their case.
---
 tissue/issue.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 9505e21..177dccf 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -240,7 +240,10 @@ return #f."
                                    (not (string=? (basename file) "README.gmi"))
                                    (not (string-prefix? "." (basename file)))
                                    (let* ((file-details (file-details file))
-                                          (all-keywords (hashtable-ref file-details 'keywords '())))
+                                          ;; Downcase keywords to make
+                                          ;; them case-insensitive.
+                                          (all-keywords (map string-downcase
+                                                             (hashtable-ref file-details 'keywords '()))))
                                      (issue file
                                             ;; Fallback to filename if title has no alphabetic
                                             ;; characters.
-- 
cgit v1.2.3