From 3cc194f203d706c4aeb5e85c158c70265127e532 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sun, 8 Jan 2023 14:54:13 +0100
Subject: Improve simple-service and service indentation

---
 tw/system/lap.scm | 80 +++++++++++++++++++++++++++----------------------------
 1 file changed, 39 insertions(+), 41 deletions(-)

(limited to 'tw/system/lap.scm')

diff --git a/tw/system/lap.scm b/tw/system/lap.scm
index 9dd81d80..504f5cc7 100644
--- a/tw/system/lap.scm
+++ b/tw/system/lap.scm
@@ -166,12 +166,12 @@ support extra features (acr, pmu, gr).")
   (kernel nongnu:linux-lts)
   (kernel-arguments
    (cons* ;;"nosplash"
-          ;;"vt.global_cursor_default=0"
-          ;;"video.use_native_backlight=1"
-          ;;"nvidia-drm.modeset=1"
-          ;;"acpi_osi=\"!Windows 2015\""
-          ;;"acpi_enforce_resources=lax"
-          %default-kernel-arguments))
+    ;;"vt.global_cursor_default=0"
+    ;;"video.use_native_backlight=1"
+    ;;"nvidia-drm.modeset=1"
+    ;;"acpi_osi=\"!Windows 2015\""
+    ;;"acpi_enforce_resources=lax"
+    %default-kernel-arguments))
   (initrd microcode-initrd)
   ;; TODO: nouveau complains about missing firmware (see dmesg).
   (firmware (cons* nongnu:atheros-firmware   ; for atk10k/QCA6174/hw3.0 (wifi card)
@@ -282,42 +282,42 @@ support extra features (acr, pmu, gr).")
   (services
    (cons*
     (service syncthing-service-type
-             (syncthing-configuration
-              (user "timo")))
+      (syncthing-configuration
+       (user "timo")))
 
     (service cups-service-type
-             (cups-configuration
-              (web-interface? #t)
-              (default-shared? #f)
-              ;; See info '(guix)Printing Services' for more extensions.
-              (extensions
-               (list cups-filters foomatic-filters brlaser))))
+      (cups-configuration
+       (web-interface? #t)
+       (default-shared? #f)
+       ;; See info '(guix)Printing Services' for more extensions.
+       (extensions
+        (list cups-filters foomatic-filters brlaser))))
 
     (bluetooth-service)
 
     (wireguard-service 'lap)
 
     (service docker-service-type
-             (docker-configuration))
+      (docker-configuration))
 
     (service krb5-service-type
-             (krb5-configuration
-              (default-realm "CERN.CH")
-              (rdns? #f)
-              (realms (list (krb5-realm
-                             (name "CERN.CH")
-                             (default-domain "cern.ch")
-                             (kdc "cerndc.cern.ch"))))))
+      (krb5-configuration
+       (default-realm "CERN.CH")
+       (rdns? #f)
+       (realms (list (krb5-realm
+                      (name "CERN.CH")
+                      (default-domain "cern.ch")
+                      (kdc "cerndc.cern.ch"))))))
 
     (service tlp-service-type
-             (tlp-configuration))   ; TODO: configure properly
+      (tlp-configuration))   ; TODO: configure properly
 
     (service thermald-service-type
-             (thermald-configuration
-              (adaptive? #t)))
+      (thermald-configuration
+       (adaptive? #t)))
 
     (service earlyoom-service-type
-             (earlyoom-configuration))  ; TODO: configure at least `avoid-regexp'
+      (earlyoom-configuration))  ; TODO: configure at least `avoid-regexp'
 
     ;; Disabled as it doesn't work with my hardware.
     ;; It always says "logging in with fingerprint failed" and blocks password login in gdm.
@@ -331,7 +331,7 @@ support extra features (acr, pmu, gr).")
     ;; If using a DM other than GDM, add it to `pam-services' in
     ;; `gnome-keyring-configuration' (see its docs).
     (service gnome-keyring-service-type
-             (gnome-keyring-configuration))
+      (gnome-keyring-configuration))
 
     ;; Allow anyone in the "video" group to set the display's brightness.
     ;; Run `udevadm info -q all /sys/class/backlight/intel_backlight'
@@ -346,23 +346,21 @@ support extra features (acr, pmu, gr).")
 
     (set-xorg-configuration custom-xorg-config)
 
-    (simple-service
-     'cronjobs mcron-service-type
-     ;; I don't think jobs run on boot if they would have run when the
-     ;; computer was turned off, so choose a time when the computer is
-     ;; probably turned on.
-     (list #~(job "0 21 * * *" "guix gc -d 2w -F 25G")
-           #~(job "0 22 * * *"  ; after guix gc
-                  (string-append #$(file-append util-linux "/sbin/fstrim")
-                                 " --fstab --verbose"))))
+    (simple-service 'cronjobs mcron-service-type
+      ;; I don't think jobs run on boot if they would have run when the
+      ;; computer was turned off, so choose a time when the computer is
+      ;; probably turned on.
+      (list #~(job "0 21 * * *" "guix gc -d 2w -F 25G")
+            #~(job "0 22 * * *"  ; after guix gc
+                   (string-append #$(file-append util-linux "/sbin/fstrim")
+                                  " --fstab --verbose"))))
 
     ;; The nonguix channel is added to channels.scm as an `extra-special-file'.
     ;; The gaming channel (https://gitlab.com/guix-gaming-channels) is per-user only.
-    (simple-service
-     'nonguix guix-service-type
-     (guix-extension
-      (authorized-keys (list nonguix-signing-key))
-      (substitute-urls '("https://substitutes.nonguix.org"))))
+    (simple-service 'nonguix guix-service-type
+      (guix-extension
+       (authorized-keys (list nonguix-signing-key))
+       (substitute-urls '("https://substitutes.nonguix.org"))))
 
     (extra-special-file "/etc/guix/channels.scm" extra-channels)
 
-- 
cgit v1.2.3