From dcc41148727ec5f68fbeb0504a295981728327a1 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 19 Aug 2023 12:27:34 +0200
Subject: Adding test infrastructure and reorganizing modules

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

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

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