From 13ee5888fddba915d1b101aa403b7393c2ccb3ba Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 17 Nov 2023 11:26:54 +0300
Subject: Capitalize InbredSetName id's consistently.
---
examples/classification.scm | 8 ++++++--
examples/dataset-metadata.scm | 14 ++++++++++----
2 files changed, 16 insertions(+), 6 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))
diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm
index 26ca7f2..2dba37f 100755
--- a/examples/dataset-metadata.scm
+++ b/examples/dataset-metadata.scm
@@ -257,7 +257,7 @@
'pre "_" 'post))
(set rdf:type 'dcat:Dataset)
(set xkos:classifiedUnder 'gnc:Phenotype)
- (set dct:title (field PublishFreeze FullName))
+ (set dct:title (field PublishFreeze FullName))
(set rdfs:label (field PublishFreeze Name))
(set skos:altLabel (field PublishFreeze ShortName))
(set dct:created (annotate-field
@@ -265,7 +265,9 @@
'^^xsd:date))
(set xkos:classifiedUnder
(string->identifier
- "set" (field InbredSet Name InbredSetName)))))
+ "set" (field InbredSet Name InbredSetName)
+ #:separator ""
+ #:proc string-capitalize-first))))
(define-transformer genofreeze
(tables (GenoFreeze
@@ -292,7 +294,9 @@
'^^xsd:date))
(set xkos:classifiedUnder
(string->identifier
- "set" (field InbredSet Name InbredSetName)))))
+ "set" (field InbredSet Name InbredSetName)
+ #:separator ""
+ #:proc string-capitalize-first))))
;; Molecular Traits are also referred to as ProbeSets
(define-transformer probesetfreeze
@@ -336,7 +340,9 @@
(field Tissue Short_Name)))
(set xkos:classifiedUnder
(string->identifier
- "set" (field InbredSet Name InbredSetName)))))
+ "set" (field InbredSet Name InbredSetName)
+ #:separator ""
+ #:proc string-capitalize-first))))
--
cgit v1.2.3