From 2a8ae48a36cc88105c9a4c056132c9a47e2f120a Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 27 Aug 2023 11:24:08 +0200
Subject: Shortnames

---
 gn/data/species.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'gn/data/species.scm')

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
-- 
cgit v1.2.3