From 694af8dfb7be8f06556109c3b4f58523943124af Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 15 Aug 2023 20:21:57 +0300
Subject: Add "probeset_" prefix to probesets

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/dump-probeset.scm | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

(limited to 'examples')

diff --git a/examples/dump-probeset.scm b/examples/dump-probeset.scm
index f34b4bd..c614a76 100755
--- a/examples/dump-probeset.scm
+++ b/examples/dump-probeset.scm
@@ -66,19 +66,14 @@
       (let ((id (field ("IF(NULLIF(TRIM(ProbeSet.Name), '') IS NULL, '', TRIM(ProbeSet.Name))"
                         ProbeSetIdName)))
             (probeset-id (field ProbeSet Id)))
-        (if (string-null? id)
-            (string->identifier
-             "probeset"
-             (number->string
-              probeset-id))
-            (string->identifier
-             ""
+        (string->identifier
+         "probeset"
+         (if (string-null? id)
+             (number->string probeset-id)
              (regexp-substitute/global
               #f "[^A-Za-z0-9:]"
               id
-              'pre "_" 'post)
-             #:separator ""
-             #:proc string-capitalize-first)))
+              'pre "_" 'post))))
     (set rdf:type 'gnc:probeset)
     (set rdfs:label (field ProbeSet Name))
     (set skos:altLabel
-- 
cgit v1.2.3