diff options
| author | Munyoki Kilyungi | 2024-10-15 19:45:48 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-10-16 12:26:17 +0300 |
| commit | 5b9548f3acad39b379f8429df7e85e3023e029ef (patch) | |
| tree | b090e5dcf56deaf0523478bf5d29e0abec804ce4 | |
| parent | 34fcf9353062a18138da83e0f2336b2eb20a2492 (diff) | |
| download | gn-transform-databases-5b9548f3acad39b379f8429df7e85e3023e029ef.tar.gz | |
Wrap WIKI comment in '...'@en and escape any #\' character.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/generif.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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 |