aboutsummaryrefslogtreecommitdiff
path: root/gn
diff options
context:
space:
mode:
Diffstat (limited to 'gn')
-rw-r--r--gn/data/species.scm5
-rw-r--r--gn/db/sparql.scm2
2 files changed, 6 insertions, 1 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
diff --git a/gn/db/sparql.scm b/gn/db/sparql.scm
index 7e512ff..c413b9a 100644
--- a/gn/db/sparql.scm
+++ b/gn/db/sparql.scm
@@ -100,7 +100,7 @@ PREFIX rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>
(define recs '())
(define h (compile-species recs table))
(assoc "http://genenetwork.org/species_drosophila_melanogaster" h)
-(assoc-ref h "http://genenetwork.org/species_drosophila_melanogaster") ;; note switch!
+(assoc-ref h "http://genenetwork.org/id/Drosophila_melanogaster")
(define d (car h))
(assoc-ref (list d) "http://genenetwork.org/species_drosophila_melanogaster")