diff options
| author | Arun Isaac | 2022-03-17 16:05:26 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-03-18 16:23:51 +0530 |
| commit | 22c35b19e6cd1d936d189d5e720df7ee9db4e332 (patch) | |
| tree | 5ffc729954702b50badff93a3961212e95bcf37f | |
| parent | bc340c9a1b6e2f2cae79eefab990958a29c0b3d8 (diff) | |
| download | tissue-22c35b19e6cd1d936d189d5e720df7ee9db4e332.tar.gz tissue-22c35b19e6cd1d936d189d5e720df7ee9db4e332.tar.lz tissue-22c35b19e6cd1d936d189d5e720df7ee9db4e332.zip | |
issue: Ignore case of keywords.
* tissue/issue.scm (issues): Downcase keywords to ignore their case.
| -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. |