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 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'examples/classification.scm')

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))
-- 
cgit v1.2.3