From 5f3ea3c988d8051d3ae3d969ac960037687903d0 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 23 Dec 2025 12:07:10 +0300
Subject: 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>
---
 transform/strings.scm | 12 ------------
 transform/triples.scm | 11 +++++++++++
 2 files changed, 11 insertions(+), 12 deletions(-)

(limited to 'transform')

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))
-- 
cgit 1.4.1