Move fix-email-id/investigator-attributes->id to string.scm

* examples/dataset-metadata.scm (fix-email-id,
investigator-attributes->id): Move this ...
* transform/strings.scm: here.

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

1 files changed, 0 insertions, 18 deletions

diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm
index 53ff2d7..783b90c 100755
--- a/examples/dataset-metadata.scm
+++ b/examples/dataset-metadata.scm
@@ -12,24 +12,6 @@
              (transform special-forms))
 
 
-
-;; One email ID in the Investigators table has spaces in it. This
-;; function fixes that.
-(define (fix-email-id email)
-  (string-delete #\space email))
-
-(define (investigator-attributes->id first-name last-name email)
-  ;; There is just one record corresponding to "Evan Williams" which
-  ;; does not have an email ID. To accommodate that record, we
-  ;; construct the investigator ID from not just the email ID, but
-  ;; also the first and the last names. It would be preferable to just
-  ;; find Evan Williams' email ID and insert it into the database.
-  (string->identifier "investigator"
-                      (string-join
-                       (list first-name last-name (fix-email-id email))
-                       "_")
-                      #:separator "_"))
-
 (define-transformer investigators
   ;; There are a few duplicate entries. We group by email to
   ;; deduplicate.