From d06d732625fdc48677ea32b129da905ebd527c38 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 21 Aug 2023 12:21:01 +0200
Subject: Getting group info

---
 gn/data/species.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'gn/data/species.scm')

diff --git a/gn/data/species.scm b/gn/data/species.scm
index 72ab7cf..ca3bb05 100644
--- a/gn/data/species.scm
+++ b/gn/data/species.scm
@@ -6,9 +6,11 @@
   #:use-module (ice-9 receive)
   #:use-module (ice-9 string-fun)
   #:use-module (gn db sparql)
+  #:use-module (gn data group)
   #:use-module (web gn-uri)
 
   #:export (
+            gnid-species
             get-species-meta
             get-species-data
             get-species-shortnames
@@ -17,10 +19,10 @@
             get-expanded-taxon-data
             ))
 
-(define (gn-species short-name)
-  "Find the GN identifier from shortname"
+(define (gnid-species short-name)
+  "Find the GN identifier from shortname, e.g. Mus_musculus"
   (let ([rec (get-expanded-taxon-data short-name)])
-    rec
+    (url-parse-id (assoc-ref rec "gnid"))
   ))
 
 (define (get-species)
@@ -128,5 +130,5 @@
     ("meta" . ,(mk-meta id))
     ("data" . ,(mk-data id))
     ("up" . ,(mk-meta "species"))
-    ("links" . "test") ; ,(get-group-links (gn-species id)))
+    ("links" . ,(list->vector (get-group-links (gnid-species id))))
   ))
-- 
cgit v1.2.3