diff options
Diffstat (limited to 'examples/strains.scm')
| -rwxr-xr-x | examples/strains.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/examples/strains.scm b/examples/strains.scm index 44a0e87..5ef6f03 100755 --- a/examples/strains.scm +++ b/examples/strains.scm @@ -76,14 +76,10 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (regexp-substitute/global #f "[^A-Za-z0-9:]" (field Strain Name) - 'pre "_" 'post) - #:separator "" - #:proc string-capitalize-first) + 'pre "_" 'post)) (set rdf:type 'gnc:strain) (set xkos:classifiedUnder - (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first)) + (string->identifier "" (remap-species-identifiers (field Species Fullname)))) ;; Name, and maybe a second name (set rdfs:label (sanitize-rdf-string (field Strain Name))) (set skos:altLabel (sanitize-rdf-string (field ("IF ((Strain.Name2 != Strain.Name), Strain.Name2, '')" Name2)))) @@ -140,7 +136,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. ("rdfs:" "<http://www.w3.org/2000/01/rdf-schema#>") ("taxon:" "<http://purl.uniprot.org/taxonomy/>"))) (inputs - (list inbred-set species strain mapping-method avg-method)) + (list strain mapping-method avg-method)) (outputs `(#:documentation ,documentation #:rdf ,output)))) |