diff options
| author | Pjotr Prins | 2023-08-27 11:24:08 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-08-27 11:24:08 +0200 |
| commit | 2a8ae48a36cc88105c9a4c056132c9a47e2f120a (patch) | |
| tree | e89080e0c5b9f614e2035686d0898cadba2a8dc2 /web | |
| parent | afbbd86f316c2bfa70b86c1c51a4147a83f285ec (diff) | |
| download | gn-guile-2a8ae48a36cc88105c9a4c056132c9a47e2f120a.tar.gz | |
Shortnames
Diffstat (limited to 'web')
| -rw-r--r-- | web/gn-uri.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/web/gn-uri.scm b/web/gn-uri.scm index f275bcd..5d95cd8 100644 --- a/web/gn-uri.scm +++ b/web/gn-uri.scm @@ -22,11 +22,12 @@ )) - (define (normalize-id str) ;; (string-replace-substring (string-downcase str) " " "_") - (string-replace-substring str " " "_") - ) + (match str + (#f "unknown") + (_ (string-replace-substring str " " "_")) + )) (define (url-parse-id uri) (if uri |