This commit is contained in:
Daniel Ziltener 2023-12-18 22:11:28 +01:00
parent 8658a82c9f
commit e288b7fbc6
2 changed files with 21 additions and 3 deletions

View file

@ -193,6 +193,9 @@ These services are unmodified, or have just few settings.
| libvirt | ((unix-sock-group "libvirt")) | | libvirt | ((unix-sock-group "libvirt")) |
| fstrim | () | | fstrim | () |
| fprintd | () | | fprintd | () |
| udev | () |
| seatd | () |
| inputattach | () |
#+NAME: root-simple-service-block #+NAME: root-simple-service-block
#+begin_src scheme :noweb yes :exports none :results output #+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 #+begin_src scheme :exports none :results code :noweb no-export
(modify-services (modify-services
%desktop-services %desktop-services
(delete gdm-service-type)
(delete screen-locker-service-type)
(delete login-service-type) (delete login-service-type)
(delete mingetty-service-type) (delete mingetty-service-type)
(delete console-font-service-type) (delete console-font-service-type)
(delete elogind-service-type)
(delete pulseaudio-service-type)
(guix-service-type config => (guix-configuration (guix-service-type config => (guix-configuration
(inherit config) (inherit config)
(substitute-urls (substitute-urls
@ -323,7 +330,7 @@ This is the full operating system specification.
(name "zilti") (name "zilti")
(group "users") (group "users")
(supplementary-groups (supplementary-groups
'("users" "wheel" "netdev" "audio" "video" "libvirt"))) '("users" "wheel" "netdev" "audio" "video" "libvirt" "seat")))
%base-user-accounts)) %base-user-accounts))
<<root-package-block>> <<root-package-block>>
<<root-services-block>> <<root-services-block>>

View file

@ -124,7 +124,7 @@
(name "zilti") (name "zilti")
(group "users") (group "users")
(supplementary-groups (supplementary-groups
'("users" "wheel" "netdev" "audio" "video" "libvirt"))) '("users" "wheel" "netdev" "audio" "video" "libvirt" "seat")))
%base-user-accounts)) %base-user-accounts))
(packages (packages
(append (append
@ -142,9 +142,13 @@
(append (append
(modify-services (modify-services
%desktop-services %desktop-services
(delete gdm-service-type)
(delete screen-locker-service-type)
(delete login-service-type) (delete login-service-type)
(delete mingetty-service-type) (delete mingetty-service-type)
(delete console-font-service-type) (delete console-font-service-type)
(delete elogind-service-type)
(delete pulseaudio-service-type)
(guix-service-type config => (guix-configuration (guix-service-type config => (guix-configuration
(inherit config) (inherit config)
(substitute-urls (substitute-urls
@ -181,7 +185,14 @@
(fstrim-configuration)) (fstrim-configuration))
(service (service
fprintd-service-type 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 polkit-wheel-service)
(list (list