From cc84af3674527b24e7117dcf3d59e05827c91858 Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Fri, 1 Dec 2023 14:37:15 +0100
Subject: [PATCH] .

---
 config.org |  9 +++---
 config.scm | 89 +++++++++++++++++++++++++++---------------------------
 2 files changed, 50 insertions(+), 48 deletions(-)

diff --git a/config.org b/config.org
index 4e22840..2534f14 100644
--- a/config.org
+++ b/config.org
@@ -118,10 +118,11 @@ As a sibling to the former, the variable ~%local-swap~ does the same with the sw
      (delete login-service-type)
      (delete mingetty-service-type)
      (delete console-font-service-type))
-    <<root-simple-service-block>>
-    <<greeter-service>>
-    <<screen-lock-service>>
-    ))
+    (concat
+     <<root-simple-service-block>>
+     <<greeter-service>>
+     <<screen-lock-service>>
+     )))
 #+end_src
 
 *** Simple Services
diff --git a/config.scm b/config.scm
index 079f4ee..dab7c26 100644
--- a/config.scm
+++ b/config.scm
@@ -71,48 +71,49 @@
      (delete login-service-type)
      (delete mingetty-service-type)
      (delete console-font-service-type))
-    (list
-     (tlp-service-type
-      (tlp-configuration))
-     (thermald-service-type
-      (thermald-configuration
-       (adaptive? t)))
-     (bluetooth-service-type
-      (bluetooth-configuration))
-     (earlyoom-service-type
-      (earlyoom-configuration
-       (minimum-available-memory 5)
-       (minimum-free-swap 5)))
-     (inputattach-service-type
-      (inputattach-configuration))
-     (libvirt-service-type
-      (libvirt-configuration
-       (unix-sock-group "libvirt")))
-     (fstrim-service-type
-      (fstrim-configuration))
-     (fprintd-service-type
-      (fprintd-configuration)))
-    
-    (service greetd-service-type
-             (greetd-configuration
-              (greeter-supplementary-groups
-               (list "video" "input"))
-              (terminals
-               (list
-                (greetd-terminal-configuration
-                 (terminal-vt "7")
-                 (terminal-switch #t)
-                 (default-session-command
-                   (greetd-wlgreet-session
-                    (command
-                     (file-append swayfx "/bin/sway")))))
-                (greetd-terminal-configuration
-                 (terminal-vt "8"))))))
-    (service screen-locker-service-type
-             (screen-locker-configuration
-              (name "swaylock")
-              (program
-               (file-append swaylock-effects "/bin/swaylock"))
-              (using-setuid? #f)))
-    ))
+    (concat
+     (list
+      (tlp-service-type
+       (tlp-configuration))
+      (thermald-service-type
+       (thermald-configuration
+        (adaptive? t)))
+      (bluetooth-service-type
+       (bluetooth-configuration))
+      (earlyoom-service-type
+       (earlyoom-configuration
+        (minimum-available-memory 5)
+        (minimum-free-swap 5)))
+      (inputattach-service-type
+       (inputattach-configuration))
+      (libvirt-service-type
+       (libvirt-configuration
+        (unix-sock-group "libvirt")))
+      (fstrim-service-type
+       (fstrim-configuration))
+      (fprintd-service-type
+       (fprintd-configuration)))
+     
+     (service greetd-service-type
+              (greetd-configuration
+               (greeter-supplementary-groups
+                (list "video" "input"))
+               (terminals
+                (list
+                 (greetd-terminal-configuration
+                  (terminal-vt "7")
+                  (terminal-switch #t)
+                  (default-session-command
+                    (greetd-wlgreet-session
+                     (command
+                      (file-append swayfx "/bin/sway")))))
+                 (greetd-terminal-configuration
+                  (terminal-vt "8"))))))
+     (service screen-locker-service-type
+              (screen-locker-configuration
+               (name "swaylock")
+               (program
+                (file-append swaylock-effects "/bin/swaylock"))
+               (using-setuid? #f)))
+     )))
  (name-service-switch %mdns-host-lookup-nss))