diff options
| -rw-r--r-- | tissue/issue.scm | 5 |
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. |