Update RIF transform.

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

1 files changed, 6 insertions, 19 deletions

diff --git a/examples/generif.scm b/examples/generif.scm
index 3b794fa..a4a2e4b 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -22,17 +22,6 @@
            (left-join GeneCategory "ON GeneRIFXRef.GeneCategoryId = GeneCategory.Id"))
           "WHERE GeneRIF.display > 0 AND GeneRIF.comment IS NOT NULL
 GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol")
-  (schema-triples
-   (gnc:gene_wiki_entry a rdfs:Class)
-   (gnc:gn_wiki_entry rdfs:subClassOf gnc:gene_wiki_entry)
-   (gnt:initial a owl:ObjectProperty)
-   (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:gene_wiki_entry)
-   (gnt:reason skos:definition "The reason why this resource was modified")
-   (gnc:gn_wiki_entry rdfs:comment "Represents GeneRIF Entries entered from GeneNetwork")
-   (gnt:gene_symbol rdfs:domain gnc:gn_wiki_entry))
   (triples
       (string->identifier
        "wiki" (format #f "~a_~a"
@@ -61,11 +50,12 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol")
                            (format #f "pubmed:~a" (string-trim-both pmid))))))
                    (string-split (field GeneRIF PubMed_ID PMID)
                                  #\space)))
-    (set foaf:mbox
-         (match (sanitize-rdf-string (field GeneRIF email))
-           ((? string-blank? mbox) "")
-           (mbox (string->symbol
-                  (format #f "<~a>" mbox)))))
+    ;; Hide e-mail for now.
+    ;; (set foaf:mbox
+    ;;      (match (sanitize-rdf-string (field GeneRIF email))
+    ;;        ((? string-blank? mbox) "")
+    ;;        (mbox (string->symbol
+    ;;               (format #f "<~a>" mbox)))))
     (set dct:identifier (annotate-field (format #f "~s" (field GeneRIF Id))
                                         '^^xsd:integer))
     (set foaf:homepage
@@ -86,9 +76,6 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol")
 (define-transformer ncbi-genewiki-entries
   (tables (GeneRIF_BASIC
            (left-join Species "USING (SpeciesId)")))
-  (schema-triples
-   (gnc:ncbi_wiki_entry rdfs:subClassOf gnc:gene_wiki_entry)
-   (gnc:ncbi_wiki_entry rdfs:comment "Represents GeneRIF Entries obtained from NCBI"))
   (triples
       (string->identifier
        "rif" (format #f "~a_~a_~a_~a"