From 8058b2755f0e7794667a6c0cfb9721f6ce64dbd5 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 16 Jul 2025 09:53:15 +0200
Subject: Wikidata: query for gene aliases

---
 web/webserver.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'web/webserver.scm')

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")
-- 
cgit 1.4.1