summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorEkaitz Zarraga <ekaitz@elenq.tech>2023-10-15 22:01:56 +0200
committerEkaitz Zarraga <ekaitz@elenq.tech>2023-10-15 22:01:56 +0200
commit35c41e63237c9188179a85235b23645178064e72 (patch)
tree9bfca733f7b239258a9eb878f3f8253104f77847 /src
parent34f28e16cbd002e1b4b5895d1a89e7c3c6e87192 (diff)
atom: use valid characters for idHEADmaster
Diffstat (limited to 'src')
-rw-r--r--src/atom.scm3
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))