From 2a8ae48a36cc88105c9a4c056132c9a47e2f120a Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 27 Aug 2023 11:24:08 +0200
Subject: Shortnames

---
 web/gn-uri.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'web/gn-uri.scm')

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
-- 
cgit v1.2.3