diff options
Diffstat (limited to 'examples/classification.scm')
| -rwxr-xr-x | examples/classification.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 8eb440a..73fad2b 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -63,7 +63,9 @@ (triples "gnc:Set" (set skos:member (string->identifier - "set" (field InbredSet Name InbredSetName))))) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first)))) (define-transformer species (tables (Species @@ -104,7 +106,9 @@ (gnt:mappingMethod a owl:ObjectProperty) (gnt:mappingMethod rdfs:domain gnc:set)) (triples (string->identifier - "set" (field InbredSet Name InbredSetName)) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first) (set skos:inScheme 'gnc:ResourceClassificationScheme) (set rdfs:label (field InbredSet FullName)) (set skos:prefLabel (field InbredSet Name InbredSetName)) |