From 257d4813a581fbfb238b4e27d16e3703c2f6aff4 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Sat, 11 Feb 2023 21:35:50 +0100
Subject: Reindent the list of system services

---
 aisaka.org               | 31 +++++++++++++++++++------------
 system-configuration.scm | 31 +++++++++++++++++++------------
 2 files changed, 38 insertions(+), 24 deletions(-)

diff --git a/aisaka.org b/aisaka.org
index eabf7a7..b60be9f 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -79,21 +79,28 @@ https://guix.gnu.org/en/manual/en/html_node/Services.html
     (list
      <<ssh-system-service>>
      <<trezor-system-packages>>
-     (service cups-service-type
-              (cups-configuration (extensions `(,cups-filters
-                                                ,epson-inkjet-printer-escpr))
-                                  (web-interface? #t)))
+     (service
+      cups-service-type
+      (cups-configuration
+       (extensions
+        (list
+         cups-filters
+         epson-inkjet-printer-escpr))
+       (web-interface? #t)))
      (service git-daemon-service-type)
      (service gnome-desktop-service-type)
-     (service tor-service-type (tor-configuration
-                                (control-socket? #t)))
+     (service
+      tor-service-type
+      (tor-configuration
+       (control-socket? #t)))
      <<trezor-udev-rules>>)
-    (modify-services %desktop-services
-                     (elogind-service-type
-                      configuration =>
-                      (elogind-configuration
-                       (inherit configuration)
-                       (handle-lid-switch 'ignore))))))
+    (modify-services
+     %desktop-services
+     (elogind-service-type
+      configuration =>
+      (elogind-configuration
+       (inherit configuration)
+       (handle-lid-switch 'ignore))))))
 #+end_src
 
 ** TODO Home configuration
diff --git a/system-configuration.scm b/system-configuration.scm
index f1bec80..57394ac 100644
--- a/system-configuration.scm
+++ b/system-configuration.scm
@@ -56,21 +56,28 @@
                                    "trezord-udev-rules"))))))
       (description "TrezorD packages needed by the system.")
       (default-value #f)))
-    (service cups-service-type
-             (cups-configuration (extensions `(,cups-filters
-                                               ,epson-inkjet-printer-escpr))
-                                 (web-interface? #t)))
+    (service
+     cups-service-type
+     (cups-configuration
+      (extensions
+       (list
+        cups-filters
+        epson-inkjet-printer-escpr))
+      (web-interface? #t)))
     (service git-daemon-service-type)
     (service gnome-desktop-service-type)
-    (service tor-service-type (tor-configuration
-                               (control-socket? #t)))
+    (service
+     tor-service-type
+     (tor-configuration
+      (control-socket? #t)))
     (udev-rules-service 'trezord trezord-udev-rules))
-   (modify-services %desktop-services
-                    (elogind-service-type
-                     configuration =>
-                     (elogind-configuration
-                      (inherit configuration)
-                      (handle-lid-switch 'ignore))))))
+   (modify-services
+    %desktop-services
+    (elogind-service-type
+     configuration =>
+     (elogind-configuration
+      (inherit configuration)
+      (handle-lid-switch 'ignore))))))
  (bootloader (bootloader-configuration (bootloader grub-bootloader)
                                        (targets '("/dev/sda"))
                                        (keyboard-layout keyboard-layout)))
-- 
cgit v1.2.3