diff options
| -rwxr-xr-x | examples/dataset-metadata-git.scm | 11 |
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")) |