aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dataset-metadata-git.scm18
1 files changed, 9 insertions, 9 deletions
diff --git a/examples/dataset-metadata-git.scm b/examples/dataset-metadata-git.scm
index 1730f95..cd3081c 100755
--- a/examples/dataset-metadata-git.scm
+++ b/examples/dataset-metadata-git.scm
@@ -21,15 +21,15 @@
(define (infopages/sql->rtf result)
(let* ((get (cut assoc-ref result <>))
(get* (compose (lambda (str)
- (if (string-blank? str)
- #f
- str))
- get))
- (identifier (string->identifier
- ""
- (regexp-substitute/global #f "[^A-Za-z0-9:]"
- (get "InfoPageName")
- 'pre "_" 'post)))
+ (if (string-blank? str)
+ #f
+ str))
+ get))
+ (identifier
+ (regexp-substitute/global
+ #f "[^A-Za-z0-9:]"
+ (get "InfoPageName")
+ 'pre "_" 'post))
(dir-name (string-append "/export/data/genenetwork/gn-docs/datasets/"))
(file-name (cut string-append dir-name <>))
(summary (get* "Summary"))