diff options
| -rwxr-xr-x | examples/classification.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 3e13a92..279dc86 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -39,7 +39,7 @@ (gnc:species xkos:specializes gnc:set)) (triples "gnc:species" (set skos:member - (string->identifier "" (remap-species-identifiers (field Species Fullname)) + (string->identifier "species" (remap-species-identifiers (field Species Fullname)) #:separator "_" #:proc string-downcase)))) @@ -54,8 +54,7 @@ (set skos:member (string->identifier "set" (field InbredSet Name InbredSetName) - #:separator "_" - #:proc (lambda (x) x))))) + #:separator "_")))) (define-transformer species (tables (Species)) @@ -70,7 +69,7 @@ (gnt:belongs_to_species rdf:comment "This resource given to this species") (gnt:belongs_to_species rdf:label "belongsToSpecies")) (triples - (string->identifier "" (remap-species-identifiers (field Species Fullname)) + (string->identifier "species" (remap-species-identifiers (field Species Fullname)) #:separator "_" #:proc string-downcase) (set skos:inScheme 'gnc:resource_classification_scheme) @@ -102,8 +101,7 @@ (gnt:belongs_to_group rdf:label "belongs_to_group")) (triples (string->identifier "set" (field InbredSet Name InbredSetName) - #:separator "_" - #:proc (lambda (x) x)) + #:separator "_") (set skos:inScheme 'gnc:resource_classification_scheme) (set rdfs:label (field InbredSet FullName)) (set skos:prefLabel (field InbredSet Name InbredSetName)) @@ -112,9 +110,9 @@ (set gnt:mapping_method (field MappingMethod Name)) (set gnt:code (field InbredSet InbredSetCode)) (set xkos:generalizes - (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "_" - #:proc string-downcase)))) + (string->identifier "species" (remap-species-identifiers (field Species Fullname)) + #:separator "_" + #:proc string-downcase)))) |