Wikidata: query for gene aliases

1 files changed, 7 insertions, 0 deletions

diff --git a/web/webserver.scm b/web/webserver.scm
index d2a8c8d..430529b 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -56,6 +56,11 @@ otherwise search for set/group data"
     (if taxoninfo taxoninfo
         (cdr (get-group-data id)))))
 
+(define (get-gene-aliases genename)
+  "Return a vector of aliases for genename."
+  #("Hx")
+  )
+
 (define (not-found2 request)
   (values (build-response #:code 404)
           (string-append "Resource X not found: "
@@ -247,6 +252,8 @@ otherwise search for set/group data"
     (('GET "doc" path ... page)
      ;; serve documents from /doc/
      (render-doc path page))
+    (('GET "gene" "aliases" genename)
+     (render-json (get-gene-aliases genename)))
     (('GET "species.json")
      (render-json (get-species-data)))
     (('GET "species.meta.json")