aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dataset-metadata-git.scm11
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"))