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