diff options
Diffstat (limited to 'transform')
| -rw-r--r-- | transform/triples.scm | 11 |
1 files changed, 6 insertions, 5 deletions
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)) |