diff options
Diffstat (limited to 'transform/strings.scm')
| -rw-r--r-- | transform/strings.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/transform/strings.scm b/transform/strings.scm index 51c5ed1..7b62349 100644 --- a/transform/strings.scm +++ b/transform/strings.scm @@ -17,8 +17,12 @@ string-capitalize-first normalize-string-field fix-email-id + blank-p investigator-attributes->id)) +(define (blank-p str) + (if (string-blank? str) #f str)) + (define (lower-case-and-replace-spaces str) (string-map (lambda (c) |