diff options
author | Munyoki Kilyungi | 2023-07-31 13:26:49 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-07-31 13:26:49 +0300 |
commit | 13ed19dd7d2ac46c4f4fae7f1d7456c0eb91ce92 (patch) | |
tree | 9af8851afceaf0709e4f96b77eff276e1df1b28d /examples/dump-species-metadata.scm | |
parent | 4912764e7116bf15782c4bfdcc4371fbda6b5a70 (diff) | |
download | gn-transform-databases-13ed19dd7d2ac46c4f4fae7f1d7456c0eb91ce92.tar.gz |
Use remap-identifiers
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/dump-species-metadata.scm')
-rwxr-xr-x | examples/dump-species-metadata.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/dump-species-metadata.scm b/examples/dump-species-metadata.scm index 6ac2640..afd4b6b 100755 --- a/examples/dump-species-metadata.scm +++ b/examples/dump-species-metadata.scm @@ -36,7 +36,9 @@ (gnt:binomialName rdfs:range rdfs:Literal) (gnt:family rdfs:range rdfs:Literal)) (triples - (string->binomial-name (field Species FullName)) + (string->identifier "" (remap-species-identifiers (field Species Fullname)) + #:separator "" + #:proc string-capitalize-first) (set rdf:type 'gnc:species) (set gnt:name (field Species SpeciesName)) (set gnt:displayName (field Species MenuName)) |