From c0426669eb398c0e9dd773dc908c8ba544f6b3c0 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 23 Dec 2025 20:07:02 +0300
Subject: Have an ID function as the default func for string->identifier.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 transform/triples.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/transform/triples.scm b/transform/triples.scm
index 55edf8a..e24e68e 100644
--- a/transform/triples.scm
+++ b/transform/triples.scm
@@ -35,15 +35,15 @@
          (format #f "~s~a" string-field schema)))))
 
 (define* (string->identifier
-	  prefix str
-	  #:optional #:key
-	  (ontology "gn:")
-	  (separator "")
-	  (proc string-capitalize-first))
+          prefix str
+          #:optional #:key
+          (ontology "gn:")
+          (separator "")
+          (proc (lambda (x) x)))
   "Convert STR to a turtle identifier after replacing illegal
 characters with an underscore and prefixing with gn:PREFIX."
   (if (or (and (string? str) (string-null? str))
-	  (eq? str #f))
+          (eq? str #f))
       ""
       (string->symbol
        (string-append ontology prefix separator
-- 
cgit 1.4.1