From 8ba0a6427427153d812efdfccb6ffa6a33c33959 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Wed, 14 Aug 2024 10:26:19 +0300 Subject: Apply formatting. Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 26 +++++++++++++------------- 1 file 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 "[ " -- cgit v1.2.3