diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-15 22:01:56 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2023-10-15 22:01:56 +0200 |
| commit | 35c41e63237c9188179a85235b23645178064e72 (patch) | |
| tree | 9bfca733f7b239258a9eb878f3f8253104f77847 /src | |
| parent | 34f28e16cbd002e1b4b5895d1a89e7c3c6e87192 (diff) | |
Diffstat (limited to 'src')
| -rw-r--r-- | src/atom.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/atom.scm b/src/atom.scm index c1428ec..6e7a8b2 100644 --- a/src/atom.scm +++ b/src/atom.scm @@ -96,9 +96,10 @@ (contributors '()) (media '()) #:allow-other-keys) + (define valid (char-set-intersection char-set:ascii char-set:letter)) (define (id-from-title title) (string-map (lambda (c) - (if (char-set-contains? char-set:letter c) c #\-)) + (if (char-set-contains? valid c) c #\-)) title)) (%make-entry (or id (id-from-title title)) |