diff options
| author | Pjotr Prins | 2023-08-22 12:31:47 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-08-22 12:31:47 +0200 |
| commit | d2e12c6e3cd695dee4aed39e481fd8c18424b278 (patch) | |
| tree | 8056833bd45c8f3cbd9b9f1c777fee7655edb599 /web/gn-uri.scm | |
| parent | b1c309e3ca19f7557a3917f26f933d864c926c33 (diff) | |
| download | gn-guile-d2e12c6e3cd695dee4aed39e481fd8c18424b278.tar.gz | |
group links
Diffstat (limited to 'web/gn-uri.scm')
| -rw-r--r-- | web/gn-uri.scm | 8 |
1 files changed, 6 insertions, 2 deletions
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))) |