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 ------------
 1 file changed, 12 deletions(-)

(limited to 'transform/strings.scm')

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