From 296e3208c92a22b2e7cc994618eddab73bc6abdc Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 26 Jan 2026 15:20:56 +0300
Subject: Add inbredset fanout.

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

diff --git a/examples/classification.scm b/examples/classification.scm
index 1fe1504..d94276a 100755
--- a/examples/classification.scm
+++ b/examples/classification.scm
@@ -191,6 +191,12 @@
     (set gnt:has_species
          (string->identifier "" (remap-species-identifiers (field Species Fullname))))))
 
+(define-transformer inbredset-families-fanout
+  (tables (InbredSet)
+          "WHERE Family IS NOT NULL")
+  (triples (string->identifier "family" (field InbredSet Family) #:separator "_")
+    (set gnt:has_strain (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_"))))
+
 
 
 (let* ((option-spec
@@ -231,7 +237,8 @@
           inbred-set
           species-families
           inbredset-families
-          species-families-fanout))
+          species-families-fanout
+          inbredset-families-fanout))
    (outputs
     `(#:documentation ,documentation
       #:rdf ,output))))
-- 
cgit 1.4.1