From e288b7fbc66bc01be273834c15b87b856881112d Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Mon, 18 Dec 2023 22:11:28 +0100
Subject: [PATCH] .

---
 config.org |  9 ++++++++-
 config.scm | 15 +++++++++++++--
 2 files changed, 21 insertions(+), 3 deletions(-)

diff --git a/config.org b/config.org
index fd6cbc8..09d4732 100644
--- a/config.org
+++ b/config.org
@@ -193,6 +193,9 @@ These services are unmodified, or have just few settings.
 | libvirt     | ((unix-sock-group "libvirt"))                        |
 | fstrim      | ()                                                   |
 | fprintd     | ()                                                   |
+| udev        | ()                                                   |
+| seatd       | ()                                                   |
+| inputattach | ()                                                   |
 
 #+NAME: root-simple-service-block
 #+begin_src scheme :noweb yes :exports none :results output
@@ -231,9 +234,13 @@ These services are unmodified, or have just few settings.
 #+begin_src scheme :exports none :results code :noweb no-export
   (modify-services
    %desktop-services
+   (delete gdm-service-type)
+   (delete screen-locker-service-type)
    (delete login-service-type)
    (delete mingetty-service-type)
    (delete console-font-service-type)
+   (delete elogind-service-type)
+   (delete pulseaudio-service-type)
    (guix-service-type config => (guix-configuration
                                  (inherit config)
                                  (substitute-urls
@@ -323,7 +330,7 @@ This is the full operating system specification.
       (name "zilti")
       (group "users")
       (supplementary-groups
-       '("users" "wheel" "netdev" "audio" "video" "libvirt")))
+       '("users" "wheel" "netdev" "audio" "video" "libvirt" "seat")))
      %base-user-accounts))
     <<root-package-block>>
     <<root-services-block>>
diff --git a/config.scm b/config.scm
index e5ff43b..ff676c0 100644
--- a/config.scm
+++ b/config.scm
@@ -124,7 +124,7 @@
     (name "zilti")
     (group "users")
     (supplementary-groups
-     '("users" "wheel" "netdev" "audio" "video" "libvirt")))
+     '("users" "wheel" "netdev" "audio" "video" "libvirt" "seat")))
    %base-user-accounts))
   (packages
    (append
@@ -142,9 +142,13 @@
    (append
     (modify-services
      %desktop-services
+     (delete gdm-service-type)
+     (delete screen-locker-service-type)
      (delete login-service-type)
      (delete mingetty-service-type)
      (delete console-font-service-type)
+     (delete elogind-service-type)
+     (delete pulseaudio-service-type)
      (guix-service-type config => (guix-configuration
                                    (inherit config)
                                    (substitute-urls
@@ -181,7 +185,14 @@
             (fstrim-configuration))
           (service
             fprintd-service-type
-            (fprintd-configuration)))
+            (fprintd-configuration))
+          (service udev-service-type (udev-configuration))
+          (service
+            seatd-service-type
+            (seatd-configuration))
+          (service
+            inputattach-service-type
+            (inputattach-configuration)))
     
     (list polkit-wheel-service)
     (list