diff options
author | BonfaceKilz | 2023-07-31 13:15:43 +0300 |
---|---|---|
committer | GitHub | 2023-07-31 13:15:43 +0300 |
commit | 4912764e7116bf15782c4bfdcc4371fbda6b5a70 (patch) | |
tree | 882ae62b66659ec0c2be69230543651d698ef17b /examples/dump-species-metadata.scm | |
parent | 0031d77d8c780eba153d08981bc93e51e498d8de (diff) | |
parent | 6f5cca6b5511ce5c80639e477ae10b4e70e2b178 (diff) | |
download | gn-transform-databases-4912764e7116bf15782c4bfdcc4371fbda6b5a70.tar.gz |
Merge branch 'master' into self-document-while-dumping
Diffstat (limited to 'examples/dump-species-metadata.scm')
-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"))) |