From 32d4b0c0bb60723d4fcaa61d85d97ecba37ecb5b Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 16 Jul 2025 10:08:00 +0200
Subject: Aliases - add example

---
 gn/db/sparql.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'gn/db/sparql.scm')

diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm
index 86d163f..bc2bb29 100644
--- a/gn/db/sparql.scm
+++ b/gn/db/sparql.scm
@@ -179,12 +179,15 @@ SELECT DISTINCT ?taxon ?ncbi ?descr where {
   (memoize sparql-wd-geneids))
 
 (define (sparql-wd-gene-aliases geneids)
-  (let ([geneid (car geneids)])
-    (receive (type values)
-        (tsv->scm (sparql-tsv (wd-sparql-endpoint-url) (wikidata-query-gene-aliases geneid)))
-      (map (lambda (item) (car item)) values) ;; flatten list))
+  "Returns a flattened and dedpulicated list of geneids with
+(sparql-wd-gene-aliases '(\"Q14860079\" \"Q24420953\"))
+"
+  (map (lambda (geneid)
+         (receive (type values)
+             (tsv->scm (sparql-tsv (wd-sparql-endpoint-url) (wikidata-query-gene-aliases (pk geneid))))
+           (map (lambda (item) (car item)) values) ;; flatten list))
       )
-  ))
+  ) geneids))
 
 #!
 gn:Mus_musculus rdf:type gnc:species .
-- 
cgit v1.2.3