Capitalize the first string of every path.

This is done to match the RDF identifier.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 6 insertions, 5 deletions

diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index aa50476..023e4c6 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -5,7 +5,7 @@
  (ice-9 getopt-long)
  (srfi srfi-26)
  ((ice-9 regex) #:select (regexp-substitute/global))
- ((transform strings) #:select (string-blank?))
+ ((transform strings) #:select (string-blank? string-capitalize-first))
  ((transform sql) #:select (call-with-target-database sql-for-each)))
 
 (define (save-file file result)
@@ -25,10 +25,11 @@
                               str))
                         get))
          (identifier
-          (regexp-substitute/global
-           #f "[^A-Za-z0-9:]"
-           (get "InfoPageName")
-           'pre "_" 'post))
+          (string-capitalize-first
+           (regexp-substitute/global
+            #f "[^A-Za-z0-9:]"
+            (get "InfoPageName")
+            'pre "_" 'post)))
          (dir-name (string-append "/export/data/genenetwork/gn-docs/general/datasets/"))
          (file-name (cut string-append dir-name <>))
          (summary (get* "Summary"))