aboutsummaryrefslogtreecommitdiff
path: root/gn3-guile/web/webserver.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gn3-guile/web/webserver.scm')
-rwxr-xr-xgn3-guile/web/webserver.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm
index 4cd049c..6059545 100755
--- a/gn3-guile/web/webserver.scm
+++ b/gn3-guile/web/webserver.scm
@@ -377,13 +377,14 @@ SELECT ?species ?p ?o WHERE {
(render-json (get-species-meta)))
(('GET "species")
(render-json (get-species-meta)))
- (('GET shortname)
+ (('GET id)
(let ([names (get-species-shortnames (get-expanded-species))])
- (if (string-contains shortname ".json")
- (if (member (string-replace-substring shortname ".json" "") names)
- (render-json shortname)
- )
- (render-json "doc"))))
+ (if
+ (match (string->list "mouse.json")
+ [(name ... #\. #\j #\s #\o #\n) (list->string name)]
+ [rest #f])
+ (render-json name)
+ (render-json "WIP"))))
(_ (not-found (request-uri request)))
))