diff options
-rwxr-xr-x | examples/probeset.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/examples/probeset.scm b/examples/probeset.scm index 7a304ab..24c09c7 100755 --- a/examples/probeset.scm +++ b/examples/probeset.scm @@ -10,7 +10,9 @@ (transform strings) (transform sql) (transform triples) - (transform special-forms)) + (transform special-forms) + (web uri)) + (define-transformer probeset (tables (ProbeSet @@ -126,7 +128,7 @@ (format #f "<~0@*~a~1@*~a> .~%<~0@*~a~1@*~a> ~2@*~a" "http://www.ncbi.nlm.nih.gov/omim/" - omim + (uri-encode omim) "a gnc:omimLink")) ""))) ;; Homologene Link @@ -137,7 +139,7 @@ (format #f "<~0@*~a~1@*~a> .~%<~0@*~a~1@*~a> ~2@*~a" "http://www.ncbi.nlm.nih.gov/homologene/?term=" - homologene + (uri-encode homologene) "a gnc:homologeneLink")) ""))) (set gnt:uniprot |