style(fontutils): remove code comments

1 files changed, 11 insertions, 14 deletions

diff --git a/suweren/home/services/fontutils.scm b/suweren/home/services/fontutils.scm
index 9888117..4b78146 100644
--- a/suweren/home/services/fontutils.scm
+++ b/suweren/home/services/fontutils.scm
@@ -43,7 +43,8 @@
                 (prefer (family "Unifont"))))
 
 (define (indent-xml level)
-        (let* ((depth (* level 2))
+        (let* ((depth (* level
+                         2))
                (indentation (make-string depth
                                          #\space)))
               (string-append "\n"
@@ -60,23 +61,19 @@
               #f))
 
 (define indent-one-level
-        (indent-xml 1 ; level
-                    ))
+        (indent-xml 1))
 
 (define (indent-rule rule)
-        (if rule ; test
-            (list indent-one-level ; consequent
+        (if rule
+            (list indent-one-level
                   rule)
-            (list #\newline) ; alternate
-            ))
+            (list #\newline)))
 
 (define formatted-rules
-        (map-in-order indent-rule ; proc
-                      rules ; arg1
-                      ))
+        (map-in-order indent-rule
+                      rules))
 
 (define-public suweren-home-fontconfig-service-type
-               (gnu:services:simple-service 'suweren-fontconfig ; name
-                                            gnu:home:services:fontutils:home-fontconfig-service-type ; target
-                                            (list formatted-rules) ; value
-                                            ))
+               (gnu:services:simple-service 'suweren-fontconfig
+                                            gnu:home:services:fontutils:home-fontconfig-service-type
+                                            (list formatted-rules)))