aboutsummaryrefslogtreecommitdiff
path: root/gn/data
diff options
context:
space:
mode:
Diffstat (limited to 'gn/data')
-rw-r--r--gn/data/species.scm14
1 files changed, 13 insertions, 1 deletions
diff --git a/gn/data/species.scm b/gn/data/species.scm
index a1eb15f..98ea1b1 100644
--- a/gn/data/species.scm
+++ b/gn/data/species.scm
@@ -12,6 +12,8 @@
get-species-meta
get-species-data
get-species-shortnames
+ get-expanded-taxon-meta
+ get-expanded-taxon-data
))
(define (get-species)
@@ -67,7 +69,7 @@
) (get-species)
))
-(define (get-expanded-species1 short-name)
+(define (get-expanded-taxon-data short-name)
"Here we add information related to one taxonomy species"
(call/cc (lambda (return)
(for-each (lambda (rec)
@@ -110,3 +112,13 @@
("up" . ,(string-append (prefix) "/"))
("meta-links" . ,(get-species-meta2 recs))
("links" . ,(get-species-links recs)))))
+
+
+(define (get-expanded-taxon-meta id)
+ "Get information on a specific species, e.g. mouse"
+ `(("info" . ,id)
+ ("doc" . ,(mk-doc id))
+ ("meta" . ,(mk-meta id))
+ ("data" . ,(mk-data id))
+ ("up" . ,(mk-meta "species"))
+ ))