From eefbb4da7db91f88470b2c097277446cee98d0ae Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Thu, 29 Jan 2026 19:28:59 +0300
Subject: Add gn:genotype->metadata.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/genotype.scm | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

(limited to 'examples')

diff --git a/examples/genotype.scm b/examples/genotype.scm
index 3b8f385..5261af7 100755
--- a/examples/genotype.scm
+++ b/examples/genotype.scm
@@ -14,11 +14,22 @@
              (transform special-forms))
 
 
-
-
+(define-transformer gn:genotype->metadata
+  (tables (InbredSet
+           (inner-join GenoFreeze "ON GenoFreeze.InbredSetId = InbredSet.Id")
+           (inner-join InfoFiles "ON InfoFiles.InbredSetId = InbredSet.Id"))
+          "WHERE GenoFreeze.public > 0 GROUP BY GenoFreeze.Id")
+  (schema-triples
+   (gnc:genotype a owl:Class)
+   (gnc:genotype a skos:Concept)
+   (gnc:genotype rdfs:label "A genotype."))
+  (triples (string->identifier "genotype" (field GenoFreeze Name) #:separator "_")
+    (set rdf:type 'gnc:genotype)
+    (set skos:prefLabel (field GenoFreeze FullName))
+    (set skos:altLabel (field GenoFreeze ShortName))
+    (set dct:created (annotate-field (field GenoFreeze CreateTime) '^^xsd:datetime))))
 
 
-
 (let* ((option-spec
         '((settings (single-char #\s) (value #t))
           (output (single-char #\o) (value #t))
@@ -46,8 +57,7 @@
       ("xkos:" "<http://rdf-vocabulary.ddialliance.org/xkos#>")
       ("xsd:" "<http://www.w3.org/2001/XMLSchema#>")))
    (inputs
-    (list
-     ))
+    (list gn:genotype->metadata))
    (outputs
     `(#:documentation ,documentation
       #:rdf ,output))))
-- 
cgit 1.4.1