classification.scm: Rename transformers.

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

1 files changed, 24 insertions, 25 deletions

diff --git a/examples/classification.scm b/examples/classification.scm
index 16b08c6..759b5a7 100755
--- a/examples/classification.scm
+++ b/examples/classification.scm
@@ -14,7 +14,7 @@
 
 
 ;; Classification Scheme
-(define-transformer classification-scheme-species
+(define-transformer gnc:species->gn:species
   (tables (Species))
   (schema-triples
    (gnc:resource_classification_scheme a skos:ConceptScheme)
@@ -44,7 +44,7 @@
     (set skos:member
          (string->identifier "" (remap-species-identifiers (field Species Fullname))))))
 
-(define-transformer classification-scheme-set
+(define-transformer gnc:set->gn:set
   (tables (InbredSet)
           "WHERE public > 0")
   (schema-triples
@@ -59,7 +59,7 @@
          (string->identifier
           "set" (field InbredSet Name InbredSetName) #:separator "_"))))
 
-(define-transformer species
+(define-transformer gnc:species->metadata
   (tables (Species))
   (schema-triples
    (gnt:has_uniprot_taxon_id a owl:ObjectProperty)
@@ -89,7 +89,7 @@
                                    'taxon:
                                    (field Species TaxonomyId)))))
 
-(define-transformer species-fan-out
+(define-transformer gnc:species->gn:set
   (tables (InbredSet
            (left-join Species "ON InbredSet.SpeciesId=Species.Id"))
           "WHERE public > 0")
@@ -103,8 +103,7 @@
     (set gnt:has_strain
          (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_"))))
 
-
-(define-transformer species-families-list
+(define-transformer gn:family->gn:species/metadata
   (tables (Species)
           "GROUP BY FAMILY")
   (schema-triples
@@ -124,7 +123,7 @@
          (annotate-field (field Species OrderId)
                          '^^xsd:integer))))
 
-(define-transformer species-families-fanout
+(define-transformer gn:family->gn:species
   (tables (Species))
   (schema-triples
    (gnt:has_family_order_id a owl:DatatypeProperty))
@@ -133,7 +132,7 @@
          (string->identifier "" (remap-species-identifiers (field Species Fullname))))))
 
 
-(define-transformer inbred-set
+(define-transformer gn:set->metadata
   (tables (InbredSet
            (left-join Species "ON InbredSet.SpeciesId=Species.Id")
            (left-join MappingMethod
@@ -174,7 +173,7 @@
     (set gnt:has_species
          (string->identifier "" (remap-species-identifiers (field Species Fullname))))))
 
-(define-transformer inbredset-population*
+(define-transformer gn:set->gn:population
   (tables (InbredSet)
           "WHERE Family IS NOT NULL")
   (schema-triples
@@ -186,7 +185,7 @@
     (set gnt:has_reference_population
          (string->identifier "population" (field InbredSet Family) #:separator "_"))))
 
-(define-transformer inbredset-population-list
+(define-transformer gn:population->metadata
   (tables (InbredSet)
           "WHERE Family IS NOT NULL GROUP BY Family")
   (schema-triples
@@ -202,21 +201,21 @@
          (annotate-field (field InbredSet FamilyOrder)
                          '^^xsd:integer))))
 
-(define-transformer inbredset-population-fanout
+(define-transformer gn:population->gn:set
   (tables (InbredSet)
           "WHERE Family IS NOT NULL")
   (triples (string->identifier "population" (field InbredSet Family) #:separator "_")
     (set gnt:has_strain
          (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_"))))
 
-(define-transformer population-category-inbredset
+(define-transformer gnc:population_category->gn:population
   (tables (InbredSet)
           "WHERE public > 0 GROUP BY Family")
   (triples "gnc:population_category"
     (set gnt:has_reference_population
          (string->identifier "population" (field InbredSet Family) #:separator "_"))))
 
-(define-transformer family-category-species
+(define-transformer gnc:taxonomic_family->gn:family
   (tables (Species)
           "GROUP BY Family")
   (schema-triples
@@ -260,18 +259,18 @@
       ("rdfs:" "<http://www.w3.org/2000/01/rdf-schema#>")
       ("taxon:" "<http://purl.uniprot.org/taxonomy/>")))
    (inputs
-    (list classification-scheme-species
-          classification-scheme-set
-          species
-          species-fan-out
-          inbred-set
-          inbredset-population*
-          species-families-list
-          species-families-fanout
-          inbredset-population-list
-          inbredset-population-fanout
-          population-category-inbredset
-          family-category-species))
+    (list gnc:species->gn:species
+          gnc:set->gn:set
+          gnc:species->metadata
+          gnc:species->gn:set
+          gn:family->gn:species/metadata
+          gn:family->gn:species
+          gn:set->metadata
+          gn:set->gn:population
+          gn:population->metadata
+          gn:population->gn:set
+          gnc:population_category->gn:population
+          gnc:taxonomic_family->gn:family))
    (outputs
     `(#:documentation ,documentation
       #:rdf ,output))))