aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorBonfaceKilz2023-07-31 13:15:43 +0300
committerGitHub2023-07-31 13:15:43 +0300
commit4912764e7116bf15782c4bfdcc4371fbda6b5a70 (patch)
tree882ae62b66659ec0c2be69230543651d698ef17b /examples
parent0031d77d8c780eba153d08981bc93e51e498d8de (diff)
parent6f5cca6b5511ce5c80639e477ae10b4e70e2b178 (diff)
downloadgn-transform-databases-4912764e7116bf15782c4bfdcc4371fbda6b5a70.tar.gz
Merge branch 'master' into self-document-while-dumping
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dump-species-metadata.scm7
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")))