diff options
| author | Pjotr Prins | 2023-08-27 11:24:08 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-08-27 11:24:08 +0200 |
| commit | 2a8ae48a36cc88105c9a4c056132c9a47e2f120a (patch) | |
| tree | e89080e0c5b9f614e2035686d0898cadba2a8dc2 /gn/data/species.scm | |
| parent | afbbd86f316c2bfa70b86c1c51a4147a83f285ec (diff) | |
| download | gn-guile-2a8ae48a36cc88105c9a4c056132c9a47e2f120a.tar.gz | |
Shortnames
Diffstat (limited to 'gn/data/species.scm')
| -rw-r--r-- | gn/data/species.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gn/data/species.scm b/gn/data/species.scm index a712bae..100cccf 100644 --- a/gn/data/species.scm +++ b/gn/data/species.scm @@ -11,9 +11,11 @@ #:export ( gnid-species + get-species get-species-meta get-species-data get-species-shortnames + get-species-binominal-names get-expanded-species get-expanded-taxon-meta get-expanded-taxon-data @@ -95,6 +97,9 @@ (define (get-species-shortnames recs) (map (lambda r (assoc-ref (car r) "shortName")) recs)) +(define (get-species-binominal-names recs) + (map (lambda r (url-parse-id (car (car r)))) recs)) + (define (get-species-meta2 recs) "Return a list of short names and expand them to URIs" (map (lambda r |