diff options
Diffstat (limited to 'gn/data/species.scm')
| -rw-r--r-- | gn/data/species.scm | 14 |
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))) )) |