From d406077de178ac74776e998b70be323baa9a8384 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 28 Jan 2026 19:52:42 +0300 Subject: 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 --- examples/dataset-metadata.scm | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'examples/dataset-metadata.scm') 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. -- cgit 1.4.1