diff options
| author | Munyoki Kilyungi | 2024-08-14 10:26:19 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-08-14 10:26:19 +0300 |
| commit | 8ba0a6427427153d812efdfccb6ffa6a33c33959 (patch) | |
| tree | 3b692bbdb4405d6cb45fd7cb97a9ca260fc236b6 | |
| parent | 20b165ab7388d5c278339c3958c895683348bdaf (diff) | |
| download | gn-transform-databases-8ba0a6427427153d812efdfccb6ffa6a33c33959.tar.gz | |
Apply formatting.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/generif.scm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 5ec78f5..706109f 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -92,25 +92,25 @@ (pmid (field GeneRIF PubMed_ID PMID)) (web-url (field GeneRIF weburl)) (species (string->identifier - "" - (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first)) + "" + (remap-species-identifiers (field Species Fullname)) + #:separator "" + #:proc string-capitalize-first)) (version-id (field GeneRIF versionId)) (identifier (field GeneRIF Id)) (initial (field GeneRIF initial)) (reason (field GeneRIF reason)) (email (sanitize-rdf-string (field GeneRIF email))) (categories - (remove (lambda (x) - (or (eq? x #f) - (and (string? x) - (string-null? x)))) - (remove-duplicates - (string-split-substring - (field ("GROUP_CONCAT(DISTINCT GeneCategory.Name SEPARATOR '$$')" - GeneCategory)) - "$$"))))) + (remove (lambda (x) + (or (eq? x #f) + (and (string? x) + (string-null? x)))) + (remove-duplicates + (string-split-substring + (field ("GROUP_CONCAT(DISTINCT GeneCategory.Name SEPARATOR '$$')" + GeneCategory)) + "$$"))))) (string->symbol (string-append "[ " |