diff options
| author | Munyoki Kilyungi | 2023-08-28 16:00:16 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-08-28 16:00:16 +0300 |
| commit | f3ede362e1d7d00022a6f9f74d7ca304014f07fe (patch) | |
| tree | bfa89e642378090d3b1411f50c0aeabfa74d260a /examples/classification.scm | |
| parent | 24226aeafadfeb81a01ae6105f078dd319965887 (diff) | |
| download | gn-transform-databases-f3ede362e1d7d00022a6f9f74d7ca304014f07fe.tar.gz | |
Set string->identifier to defaut to "" sep and string-capitalize
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/classification.scm')
| -rwxr-xr-x | examples/classification.scm | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 5d6840b..3843c49 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -47,9 +47,7 @@ (gnc:Species xkos:depth "3") (gnc:Species xkos:specializes gnc:Set)) (triples "gnc:Species" - (set skos:member (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first)))) + (set skos:member (string->identifier "" (remap-species-identifiers (field Species Fullname)))))) (define-transformer classification-scheme-set (tables (InbredSet)) @@ -61,9 +59,7 @@ (triples "gnc:Set" (set skos:member (string->identifier - "set" (field InbredSet Name) - #:separator "" - #:proc string-capitalize-first)))) + "set" (field InbredSet Name))))) (define-transformer species (tables (Species)) @@ -75,9 +71,7 @@ (gnt:shortName rdfs:domain gnc:Species) (gnt:shortName skos:definition "The short name of a given resource")) (triples - (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first) + (string->identifier "" (remap-species-identifiers (field Species Fullname))) (set skos:inScheme 'gnc:ResourceClassificationScheme) (set rdfs:label (remap-species-identifiers (field Species Fullname))) (set skos:prefLabel (field Species MenuName)) @@ -103,9 +97,7 @@ (gnt:mappingMethod a owl:ObjectProperty) (gnt:mappingMethod rdfs:domain gnc:set)) (triples (string->identifier - "set" (field InbredSet Name) - #:separator "" - #:proc string-capitalize-first) + "set" (field InbredSet Name)) (set skos:inScheme 'gnc:ResourceClassificationScheme) (set rdfs:label (field InbredSet FullName)) (set skos:prefLabel (field InbredSet Name)) |