From f3d93fe801b057be02457d80dccf9aba085d60e9 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 26 Jan 2026 15:16:18 +0300
Subject: Add species families fan-out.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/classification.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'examples')

diff --git a/examples/classification.scm b/examples/classification.scm
index 580a559..1fe1504 100755
--- a/examples/classification.scm
+++ b/examples/classification.scm
@@ -183,6 +183,14 @@
          (annotate-field (field InbredSet FamilyOrder)
                          '^^xsd:integer))))
 
+(define-transformer species-families-fanout
+  (tables (Species))
+  (schema-triples
+   (gnt:has_family_order_id a owl:DatatypeProperty))
+  (triples (string->identifier "family" (field Species Family) #:separator "_")
+    (set gnt:has_species
+         (string->identifier "" (remap-species-identifiers (field Species Fullname))))))
+
 
 
 (let* ((option-spec
-- 
cgit 1.4.1