summaryrefslogtreecommitdiff
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.