diff options
| author | Munyoki Kilyungi | 2023-11-17 11:25:21 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-11-17 11:25:21 +0300 |
| commit | 2df9eb5a6adf15ddb19d4f00f1bc5a1c35f492c7 (patch) | |
| tree | 089a3570dbd218081bf12c73878e58c462787c56 /examples/genbank.scm | |
| parent | b32bf3e486c2d819db8d7af770ab098137173be8 (diff) | |
| download | gn-transform-databases-2df9eb5a6adf15ddb19d4f00f1bc5a1c35f492c7.tar.gz | |
Make species identifiers consistent.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/genbank.scm')
| -rwxr-xr-x | examples/genbank.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/examples/genbank.scm b/examples/genbank.scm index 65eed0c..dc40d67 100755 --- a/examples/genbank.scm +++ b/examples/genbank.scm @@ -36,7 +36,9 @@ (field Genbank Id)) (set gnt:hasSequence (field Genbank Sequence)) (set xkos:classifiedUnder - (string->identifier "" (remap-species-identifiers (field Species Fullname)))))) + (string->identifier "" (remap-species-identifiers (field Species Fullname)) + #:separator "" + #:proc string-capitalize-first)))) |