From 30c17dde2647ede993e13ad2c9d6fbf553197392 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 23 Dec 2025 20:08:44 +0300
Subject: Add extra string utility functions.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 transform/strings.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'transform/strings.scm')

diff --git a/transform/strings.scm b/transform/strings.scm
index 7d9bc82..aba554a 100644
--- a/transform/strings.scm
+++ b/transform/strings.scm
@@ -14,7 +14,8 @@
             sanitize-rdf-string
             snake->lower-camel
             lower-case-and-replace-spaces
-            string-capitalize-first))
+            string-capitalize-first
+            normalize-string-field))
 
 (define (lower-case-and-replace-spaces str)
   (string-map
@@ -119,3 +120,13 @@ association list mapping substrings to their replacements."
       ((null? lst) (reverse result))
       ((memq (car lst) result) (loop (cdr lst) result))
       (else (loop (cdr lst) (cons (car lst) result))))))
+
+(define (normalize-string-field field)
+  (let ((field (string-trim-both field)))
+    (match field
+      ((?  string? field)
+       (if (or (string-blank? field)
+               (string=? (string-downcase field) "none"))
+           ""
+           field))
+      (_ ""))))
-- 
cgit 1.4.1