From d2e12c6e3cd695dee4aed39e481fd8c18424b278 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Tue, 22 Aug 2023 12:31:47 +0200
Subject: group links

---
 web/gn-uri.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'web')

diff --git a/web/gn-uri.scm b/web/gn-uri.scm
index c0a440a..951b24d 100644
--- a/web/gn-uri.scm
+++ b/web/gn-uri.scm
@@ -81,10 +81,14 @@
   (mk-html (string-append "term" "/" postfix)))
 
 (define (mk-id postfix)
-  (mk-html (string-append "id" "/" postfix)))
+  "Expand URL to make $api/id/identifier.
+   If postfix is a path it will only apply the last element"
+  (mk-url (string-append "id" "/" (url-parse-id postfix))))
 
 (define (mk-gnid postfix)
-  (mk-uri (string-append "id" "/" postfix)))
+  "Expand URL to make http://genenetwork.org/id/identifier.
+   If postfix is a path it will only apply the last element"
+  (mk-uri (string-append "id" "/" (url-parse-id postfix))))
 
 (define (mk-predicate postfix)
   (mk-html (string-append "predicate" "/" postfix)))
-- 
cgit v1.2.3