From 5ca0cf4337b07b7fdea27e3c19a5a1ff26d001f3 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Thu, 8 Feb 2024 22:16:43 +0300 Subject: Remove "string->identifier" for the dataset directory name. Signed-off-by: Munyoki Kilyungi --- examples/dataset-metadata-git.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'examples/dataset-metadata-git.scm') 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")) -- cgit v1.2.3