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(-)

(limited to 'examples')

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