summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--tissue/issue.scm5
1 files changed, 4 insertions, 1 deletions
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.