diff options
| author | Munyoki Kilyungi | 2025-12-23 12:07:10 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-13 12:02:49 +0300 |
| commit | 5f3ea3c988d8051d3ae3d969ac960037687903d0 (patch) | |
| tree | 50f62bef4146a3d0e91044fb76ebac0d9863c415 | |
| parent | 1ca7e679b834ccaf53a3243d0e1c2f3f9e8d56d8 (diff) | |
| download | gn-transform-databases-5f3ea3c988d8051d3ae3d969ac960037687903d0.tar.gz | |
Move remap-species-identifiers to (transform triples).
* examples/classification.scm (remap-species-identifiers): Move this... * transform/triples.scm: ... here. Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/classification.scm | 10 | ||||
| -rw-r--r-- | transform/strings.scm | 12 | ||||
| -rw-r--r-- | transform/triples.scm | 11 |
3 files changed, 11 insertions, 22 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 8951c85..3e13a92 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -13,16 +13,6 @@ -(define (remap-species-identifiers str) - "This procedure remaps identifiers to standard binominal. Obviously this should - be sorted by correcting the database!" - (match str - ["Fly (Drosophila melanogaster dm6)" "Drosophila melanogaster"] - ["Oryzias latipes (Japanese medaka)" "Oryzias latipes"] - ["Macaca mulatta" "Macaca nemestrina"] - ["Bat (Glossophaga soricina)" "Glossophaga soricina"] - [str str])) - ;; Classification Scheme (define-transformer classification-scheme-species (tables (Species)) diff --git a/transform/strings.scm b/transform/strings.scm index 7545f62..7d9bc82 100644 --- a/transform/strings.scm +++ b/transform/strings.scm @@ -11,7 +11,6 @@ delete-substrings replace-substrings remove-duplicates - remap-species-identifiers str sanitize-rdf-string snake->lower-camel lower-case-and-replace-spaces @@ -120,14 +119,3 @@ 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 (remap-species-identifiers str) - "This procedure remaps identifiers to standard binominal. Obviously this should - be sorted by correcting the database!" - (match str - ["Fly (Drosophila melanogaster dm6)" "Drosophila melanogaster"] - ["Oryzias latipes (Japanese medaka)" "Oryzias latipes"] - ["Macaca mulatta" "Macaca nemestrina"] - ["Bat (Glossophaga soricina)" "Glossophaga soricina"] - [str str])) diff --git a/transform/triples.scm b/transform/triples.scm index 9775d36..f2dbcf7 100644 --- a/transform/triples.scm +++ b/transform/triples.scm @@ -8,8 +8,19 @@ triple scm->triples annotate-field + remap-species-identifiers string->binomial-name)) +(define (remap-species-identifiers str) + "This procedure remaps identifiers to standard binominal. Obviously this should + be sorted by correcting the database!" + (match str + ["Fly (Drosophila melanogaster dm6)" "Drosophila melanogaster"] + ["Oryzias latipes (Japanese medaka)" "Oryzias latipes"] + ["Macaca mulatta" "Macaca nemestrina"] + ["Bat (Glossophaga soricina)" "Glossophaga soricina"] + [str str])) + (define (annotate-field field schema) (let ([schema (cond ((symbol? schema) (symbol->string schema)) |