diff options
| -rwxr-xr-x | examples/dump-species-metadata.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm index 5c9ef49..6ac2640 100755 --- a/examples/dump-species-metadata.scm +++ b/examples/dump-species-metadata.scm @@ -63,9 +63,7 @@ #:proc string-capitalize-first) (set rdf:type 'gnc:strain) (set gn-term:strainOfSpecies - (string->identifier "" (remap-species-identifiers (field Species FullName)) - #:separator "" - #:proc string-capitalize-first)) + (string->binomial-name (field Species FullName))) ;; Name, and maybe a second name (set gn-term:name (sanitize-rdf-string (field Strain Name))) (set gn-term:name2 (sanitize-rdf-string (field Strain Name2))) @@ -138,8 +136,7 @@ (list dump-species dump-strain dump-mapping-method - dump-avg-method - )) + dump-avg-method)) (outputs '(#:documentation "./docs/dump-species-metadata.md" #:rdf "./verified-data/dump-species-metadata.ttl"))) |