diff options
| author | Pjotr Prins | 2025-07-16 11:16:55 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2025-07-16 11:16:55 +0200 |
| commit | 63f549f131da2e6c43ae0959e376fbc1e60da3c3 (patch) | |
| tree | 7b145033d43d8c9f0fe7d7de2b99211354d0fefe | |
| parent | 7b80128e3e706bc44eb60d565634cac2eba8c7a1 (diff) | |
| download | gn-guile-63f549f131da2e6c43ae0959e376fbc1e60da3c3.tar.gz | |
curl http://127.0.0.1:8091/gene/aliases/Shh
["9530036O11Rik","Dsh","Hhg1","Hx","Hxl3","M100081","ShhNC","sonic hedgehog","sonic hedgehog signaling molecule"]
| -rw-r--r-- | README.md | 2 | ||||
| -rw-r--r-- | gn/db/sparql.scm | 2 | ||||
| -rw-r--r-- | web/webserver.scm | 3 |
3 files changed, 4 insertions, 3 deletions
@@ -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) |