From 63f549f131da2e6c43ae0959e376fbc1e60da3c3 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 16 Jul 2025 11:16:55 +0200
Subject: Aliases: make it work in the webserver. You can now try:

curl http://127.0.0.1:8091/gene/aliases/Shh
["9530036O11Rik","Dsh","Hhg1","Hx","Hxl3","M100081","ShhNC","sonic hedgehog","sonic hedgehog signaling molecule"]
---
 README.md         | 2 +-
 gn/db/sparql.scm  | 2 ++
 web/webserver.scm | 3 +--
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/README.md b/README.md
index fb91da5..ad98170 100644
--- a/README.md
+++ b/README.md
@@ -25,7 +25,7 @@ The current repository lives at
 git clone tux02.genenetwork.org:/home/git/public/gn-guile
 ```
 
-GNU Guile allows you to develop against a live running web server using emacs-geiser. To try this fire up the web server from the `web` directory as
+GNU Guile allows you to develop against a live running web server using emacs-geiser on port 1970. To try this fire up the web server from the `web` directory as
 
 ```sh
 guix shell -L ~/guix-bioinformatics --container --network --file=guix.scm -- guile -L . --fresh-auto-compile --listen=1970 -e main web/webserver.scm 8091
diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm
index c6c7cd8..bd7a306 100644
--- a/gn/db/sparql.scm
+++ b/gn/db/sparql.scm
@@ -28,6 +28,8 @@ the case.
             sparql-groups-meta
             sparql-group-info
             memo-sparql-wd-species-info
+            memo-sparql-wd-gene-aliases
+            memo-sparql-wd-geneids
             compile-species
             compile-groups-meta
             get-rows
diff --git a/web/webserver.scm b/web/webserver.scm
index 430529b..880ab49 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -58,8 +58,7 @@ otherwise search for set/group data"
 
 (define (get-gene-aliases genename)
   "Return a vector of aliases for genename."
-  #("Hx")
-  )
+  (list->vector (memo-sparql-wd-gene-aliases (memo-sparql-wd-geneids genename))))
 
 (define (not-found2 request)
   (values (build-response #:code 404)
-- 
cgit v1.2.3