Add missing function

* examples/dataset-metadata.scm (remap-species-identifiers): New function.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 9 insertions, 0 deletions

diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm
index 8bb9607..7cda69c 100755
--- a/examples/dataset-metadata.scm
+++ b/examples/dataset-metadata.scm
@@ -12,6 +12,15 @@
              (transform special-forms))
 
 
+(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]))
 
 ;; One email ID in the Investigators table has spaces in it. This
 ;; function fixes that.