From 20b165ab7388d5c278339c3958c895683348bdaf Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 14 Aug 2024 10:25:47 +0300
Subject: Add email to WIKI transform.

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

(limited to 'examples/generif.scm')

diff --git a/examples/generif.scm b/examples/generif.scm
index 8e36705..5ec78f5 100755
--- a/examples/generif.scm
+++ b/examples/generif.scm
@@ -100,6 +100,7 @@
                 (identifier (field GeneRIF Id))
                 (initial (field GeneRIF initial))
                 (reason (field GeneRIF reason))
+                (email (sanitize-rdf-string (field GeneRIF email)))
                 (categories
                   (remove (lambda (x)
                             (or (eq? x #f)
@@ -139,6 +140,9 @@
                           (field Investigators LastName)
                           (field Investigators Email)))
                  "")
+             (if (string-blank? email)
+                 ""
+                 (format #f "foaf:mbox ~s ; " email))
              (format #f "dct:identifier ~s ; " identifier)
              (format #f "dct:hasVersion \"~s\"^^xsd:int ; " version-id)
              (if (string-blank? reason)
-- 
cgit v1.2.3