From e288b7fbc66bc01be273834c15b87b856881112d Mon Sep 17 00:00:00 2001 From: Daniel Ziltener 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)) <> <> 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