Getting group info

1 files changed, 23 insertions, 0 deletions

diff --git a/gn/data/group.scm b/gn/data/group.scm
new file mode 100644
index 0000000..003ac11
--- /dev/null
+++ b/gn/data/group.scm
@@ -0,0 +1,23 @@
+(define-module (gn data group)
+  #:use-module (srfi srfi-1)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 format)
+  #:use-module (ice-9 iconv)
+  #:use-module (ice-9 receive)
+  #:use-module (ice-9 string-fun)
+  #:use-module (gn db sparql)
+  #:use-module (web gn-uri)
+
+  #:export (
+            get-group-links
+            ))
+
+(define (get-group-links gnid)
+  "Return all the URIs that link to group info, e.g. for Mus_musculus"
+  (let ([recs (car (cdr (compile-groups-meta)))]
+        [uri (mk-gnid gnid)])
+    (filter-map
+     (lambda (r) (if (string=? (second r) uri)
+                     (list ("ref" . (car r)))
+                     #f)) recs)
+  ))