Add uuid function.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 12 insertions, 1 deletions

diff --git a/transform/strings.scm b/transform/strings.scm
index 8b4ee45..c0f02e5 100644
--- a/transform/strings.scm
+++ b/transform/strings.scm
@@ -1,6 +1,11 @@
 (define-module (transform strings)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-19)
+  #:use-module (rnrs bytevectors)
+  #:use-module (uuid generate)
+  #:use-module (uuid utils)
+  #:use-module (uuid well-known)
+  #:use-module (ice-9 iconv)
   #:use-module (ice-9 match)
   #:use-module (ice-9 rdelim)
   #:use-module (ice-9 string-fun)
@@ -20,7 +25,13 @@
             fix-email-id
             blank-p
             investigator-attributes->id
-            path-without-extension))
+            path-without-extension
+            gn-uuid))
+
+(define (gn-uuid string)
+  (generate-string-uuid
+   'uuidv5
+   (string->bytevector string "UTF-8")))
 
 (define (blank-p str)
   (if (string-blank? str) #f str))