From 5b9548f3acad39b379f8429df7e85e3023e029ef Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 15 Oct 2024 19:45:48 +0300 Subject: Wrap WIKI comment in '...'@en and escape any #\' character. Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'examples') diff --git a/examples/generif.scm b/examples/generif.scm index a0db6de..f153f73 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -40,7 +40,11 @@ GROUP BY GeneRIF.Id, GeneRIF.versionId, GeneRIF.symbol") (field GeneRIF Id) (field GeneRIF versionId)) (set rdfs:label (string->symbol - (sanitize-rdf-string (format #f "'''~a'''@en" (field GeneRIF comment))))) + (format #f "'~a'@en" + (replace-substrings + (sanitize-rdf-string + (field GeneRIF comment)) + '(("'" . "\\'")))))) (set rdf:type 'gnc:GNWikiEntry) (set gnt:symbol (field GeneRIF symbol)) (set gnt:belongsToSpecies (string->identifier -- cgit v1.2.3