Add email to WIKI transform.

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

1 files changed, 4 insertions, 0 deletions

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)