aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPjotr Prins2023-07-10 09:41:21 -0500
committerPjotr Prins2023-07-10 09:41:21 -0500
commit64f83e0e726790f140b6cbbc6e1aaee3997280d1 (patch)
treef027ec7f91245570357ceeafd2b829975bb08212
parent429d1d1e2ee83eb8448cea8cde455e3e1f4dc98f (diff)
downloadgenenetwork3-64f83e0e726790f140b6cbbc6e1aaee3997280d1.tar.gz
fixing meta-info
-rwxr-xr-xgn3-guile/web/webserver.scm15
1 files changed, 10 insertions, 5 deletions
diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm
index f14fb25..e19cfd7 100755
--- a/gn3-guile/web/webserver.scm
+++ b/gn3-guile/web/webserver.scm
@@ -32,6 +32,10 @@
"Add the path to the API URL"
(string-append (prefix) "/" postfix))
+(define (mk-doc postfix)
+ "Create a pointer to HTML documentation"
+ (string-append (base-url) "/" postfix ".html"))
+
(define (meta url)
"Adds /meta to the URL"
(string-append url "/meta"))
@@ -45,11 +49,12 @@
("see also". ,(meta (prefix)))
))
-(define info-meta `(
- ("API" .
- ((,(mk-url "species")."Get a list of all species")
- (,(mk-url "mouse")."Get information on mouse")
- (,(mk-url "datasets")."Get a list of datasets")))))
+(define info-meta `(
+ ("doc" . ,(mk-doc "info"))
+ ("API" .
+ ((,(mk-url "species")."Get a list of all species")
+ (,(mk-url "mouse")."Get information on mouse")
+ (,(mk-url "datasets")."Get a list of datasets")))))
(define (get-species)
'(("Mus_musculus" . (("id" . "mouse" )