From b151e98e3933d7e21f20554cc892f0bef0740cba Mon Sep 17 00:00:00 2001 From: Pjotr Prins Date: Mon, 21 Aug 2023 10:19:04 +0200 Subject: Fix missing procedure --- gn/data/species.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/gn/data/species.scm b/gn/data/species.scm index e06931e..72ab7cf 100644 --- a/gn/data/species.scm +++ b/gn/data/species.scm @@ -12,6 +12,7 @@ get-species-meta get-species-data get-species-shortnames + get-expanded-species get-expanded-taxon-meta get-expanded-taxon-data )) @@ -78,6 +79,13 @@ (return #f) ))) + +(define (get-expanded-species) + "Here we add information related to each species" + (map (lambda (rec) + (expand-species rec) + ) (get-species))) + (define (get-species-api-str) (scm->json-string #("https://genenetwork.org/api/v2/mouse/" "https://genenetwork.org/api/v2/rat/"))) @@ -120,5 +128,5 @@ ("meta" . ,(mk-meta id)) ("data" . ,(mk-data id)) ("up" . ,(mk-meta "species")) - ("links" . ,(get-group-links (gn-species id))) + ("links" . "test") ; ,(get-group-links (gn-species id))) )) -- cgit v1.2.3