From 2df9eb5a6adf15ddb19d4f00f1bc5a1c35f492c7 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Fri, 17 Nov 2023 11:25:21 +0300 Subject: Make species identifiers consistent. Signed-off-by: Munyoki Kilyungi --- examples/strains.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'examples/strains.scm') diff --git a/examples/strains.scm b/examples/strains.scm index 5ef6f03..8552229 100755 --- a/examples/strains.scm +++ b/examples/strains.scm @@ -79,7 +79,9 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. 'pre "_" 'post)) (set rdf:type 'gnc:strain) (set xkos:classifiedUnder - (string->identifier "" (remap-species-identifiers (field Species Fullname)))) + (string->identifier "" (remap-species-identifiers (field Species Fullname)) + #:separator "" + #:proc string-capitalize-first)) ;; Name, and maybe a second name (set rdfs:label (sanitize-rdf-string (field Strain Name))) (set skos:altLabel (sanitize-rdf-string (field ("IF ((Strain.Name2 != Strain.Name), Strain.Name2, '')" Name2)))) -- cgit v1.2.3