aboutsummaryrefslogtreecommitdiff
path: root/gn/data/species.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gn/data/species.scm')
-rw-r--r--gn/data/species.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/gn/data/species.scm b/gn/data/species.scm
index 98ea1b1..e06931e 100644
--- a/gn/data/species.scm
+++ b/gn/data/species.scm
@@ -16,6 +16,12 @@
get-expanded-taxon-data
))
+(define (gn-species short-name)
+ "Find the GN identifier from shortname"
+ (let ([rec (get-expanded-taxon-data short-name)])
+ rec
+ ))
+
(define (get-species)
(receive (names res) (memo-sparql-species-meta)
(let* ([table (get-rows names res)]
@@ -62,13 +68,6 @@
)
-(define (get-expanded-species)
- "Here we add information related to each species"
- (map (lambda (rec)
- (expand-species rec)
- ) (get-species)
-))
-
(define (get-expanded-taxon-data short-name)
"Here we add information related to one taxonomy species"
(call/cc (lambda (return)
@@ -121,4 +120,5 @@
("meta" . ,(mk-meta id))
("data" . ,(mk-data id))
("up" . ,(mk-meta "species"))
+ ("links" . ,(get-group-links (gn-species id)))
))