aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--dump/strings.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/dump/strings.scm b/dump/strings.scm
index 849b3c3..282b4e1 100644
--- a/dump/strings.scm
+++ b/dump/strings.scm
@@ -10,7 +10,8 @@
delete-substrings
replace-substrings
sanitize-rdf-string
- snake->lower-camel))
+ snake->lower-camel
+ string-capitalize-first))
(define (time-unix->string seconds . maybe-format)
"Given an integer saying the number of seconds since the Unix
@@ -92,3 +93,8 @@ association list mapping substrings to their replacements."
char))))
(drop char-list 1)
char-list)))))
+
+(define (string-capitalize-first string)
+ (string-titlecase
+ (string-downcase string) 0 1))
+