From f3ede362e1d7d00022a6f9f74d7ca304014f07fe Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 28 Aug 2023 16:00:16 +0300
Subject: Set string->identifier to defaut to "" sep and string-capitalize

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

(limited to 'transform')

diff --git a/transform/triples.scm b/transform/triples.scm
index 926b8a2..9775d36 100644
--- a/transform/triples.scm
+++ b/transform/triples.scm
@@ -23,11 +23,12 @@
         (string->symbol
          (format #f "~s~a" string-field schema)))))
 
-(define* (string->identifier prefix str
-                             #:optional #:key
-                             (ontology "gn:")
-                             (separator "_")
-                             (proc string-downcase))
+(define* (string->identifier
+          prefix str
+          #:optional #:key
+          (ontology "gn:")
+          (separator "")
+          (proc string-capitalize-first))
   "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))
-- 
cgit v1.2.3