From 1ca7e679b834ccaf53a3243d0e1c2f3f9e8d56d8 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 23 Dec 2025 12:06:06 +0300
Subject: Snake case gn/gnt/gnc identifiers.

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

(limited to 'examples/generif.scm')

diff --git a/examples/generif.scm b/examples/generif.scm
index 628e34e..5fb95f7 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -23,16 +23,16 @@
           "WHERE GeneRIF.display > 0 AND GeneRIF.comment IS NOT NULL
 GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol")
   (schema-triples
-   (gnc:GeneWikiEntry a rdfs:Class)
-   (gnc:GNWikiEntry rdfs:subClassOf gnc:GeneWikiEntry)
+   (gnc:gene_wiki_entry a rdfs:Class)
+   (gnc:GNWikiEntry rdfs:subClassOf gnc:gene_wiki_entry)
    (gnt:initial a owl:ObjectProperty)
-   (gnt:initial rdfs:domain gnc:GeneWikiEntry)
+   (gnt:initial rdfs:domain gnc:gene_wiki_entry)
    (gnt:initial skos:definition "Optional user or project code or your initials")
    (gnt:reason a owl:ObjectProperty)
-   (gnt:reason rdfs:domain gnc:GeneWikiEntry)
+   (gnt:reason rdfs:domain gnc:gene_wiki_entry)
    (gnt:reason skos:definition "The reason why this resource was modified")
    (gnc:GNWikiEntry rdfs:comment "Represents GeneRIF Entries entered from GeneNetwork")
-   (gnt:geneSymbol rdfs:domain gnc:GNWikiEntry))
+   (gnt:gene_symbol rdfs:domain gnc:GNWikiEntry))
   (triples
       (format
        #f "gn:wiki-~a-~a"
@@ -46,7 +46,7 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol")
                               '(("'" . "\\'"))))))
     (set rdf:type 'gnc:GNWikiEntry)
     (set gnt:symbol (field GeneRIF symbol))
-    (set gnt:belongsToSpecies (string->identifier
+    (set gnt:belongs_to_species (string->identifier
                                ""
                                (remap-species-identifiers (field Species Fullname))
                                #:separator ""
@@ -90,8 +90,8 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol")
   (tables (GeneRIF_BASIC
            (left-join Species "USING (SpeciesId)")))
   (schema-triples
-   (gnc:NCBIWikiEntry rdfs:subClassOf gnc:GeneWikiEntry)
-   (gnc:NCBIWikiEntry rdfs:comment "Represents GeneRIF Entries obtained from NCBI"))
+   (gnc:ncbi_wiki_entry rdfs:subClassOf gnc:gene_wiki_entry)
+   (gnc:ncbi_wiki_entry rdfs:comment "Represents GeneRIF Entries obtained from NCBI"))
   (triples
       (format
        #f "gn:rif-~a-~a-~a-~a"
@@ -124,11 +124,11 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol")
                 (version-id (field GeneRIF_BASIC versionId)))
            (string->symbol
             (string-append
-             (format #f "gnc:NCBIWikiEntry ;\n")
+             (format #f "gnc:ncbi_wiki_entry ;\n")
              (format #f "\trdfs:label ~a ;\n" comment)
-             (format #f "\tgnt:belongsToSpecies ~a ;\n" species)
+             (format #f "\tgnt:belongs_to_species ~a ;\n" species)
              (format #f "\tgnt:symbol ~s ;\n" symbol)
-             (format #f "\tgnt:hasGeneId generif:~a ;\n" gene-id)
+             (format #f "\tgnt:has_gene_id generif:~a ;\n" gene-id)
              (match taxon-id
                ((? number? x)
                 (format #f "\tskos:notation taxon:~a ;\n" taxon-id))
-- 
cgit 1.4.1