From 64f83e0e726790f140b6cbbc6e1aaee3997280d1 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 10 Jul 2023 09:41:21 -0500
Subject: fixing meta-info

---
 gn3-guile/web/webserver.scm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'gn3-guile/web')

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