From 13ed19dd7d2ac46c4f4fae7f1d7456c0eb91ce92 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 31 Jul 2023 13:26:49 +0300 Subject: Use remap-identifiers Signed-off-by: Munyoki Kilyungi --- examples/dump-species-metadata.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- cgit v1.2.3