diff options
| author | Munyoki Kilyungi | 2026-01-28 23:00:25 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-28 23:00:25 +0300 |
| commit | 3b1f3e5c087dc01db3eb76611253e523c9b4ffb1 (patch) | |
| tree | 9cfabab3f07c17f253b75a963ef479c4cc032183 /transform | |
| parent | d825d25692cdff572b979970f65bc64f2ab22c0d (diff) | |
| download | gn-transform-databases-3b1f3e5c087dc01db3eb76611253e523c9b4ffb1.tar.gz | |
Move investigators transform to its own file.
* examples/dataset-metadata.scm (investigators): Delete.
(option-spec)[investigators]: Delete
* transform/strings.scm (fix-email-id, investigator-attributes->id):
Move these ...
* examples/investigators.scm: ... here.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'transform')
| -rw-r--r-- | transform/strings.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/transform/strings.scm b/transform/strings.scm index 7544399..51c5ed1 100644 --- a/transform/strings.scm +++ b/transform/strings.scm @@ -19,23 +19,6 @@ fix-email-id investigator-attributes->id)) -;; 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 (lower-case-and-replace-spaces str) (string-map (lambda (c) |