diff options
| -rw-r--r-- | transform/strings.scm | 13 |
1 files changed, 12 insertions, 1 deletions
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)) + (_ "")))) |