about summary refs log tree commit diff
path: root/examples/dataset-metadata.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dataset-metadata.scm')
-rwxr-xr-xexamples/dataset-metadata.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm
index 1c02bb3..26ca7f2 100755
--- a/examples/dataset-metadata.scm
+++ b/examples/dataset-metadata.scm
@@ -81,7 +81,9 @@
                                Title)))
     (set gnt:hasGOTreeValue (field GeneChip Go_tree_value))
     (set xkos:classifiedUnder
-         (string->identifier "" (remap-species-identifiers (field Species Fullname))))
+         (string->identifier "" (remap-species-identifiers (field Species Fullname))
+                             #:separator ""
+                             #:proc string-capitalize-first))
     (set gnt:hasGeoSeriesId
          (ontology 'geoSeries:
                    (string-trim-both (field GeneChip GeoPlatform))))))