jetomit/monguix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

hosts/kirsty: update services

Browse source 
Switch to seatd & greetd. Switch to chrony. Drop custom swaylock service.
This commit is contained in:
Timotej Lazar 2023-08-16 14:25:40 +02:00
parent e08a4ae5ad
commit 7f25694251
1 changed files with 32 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

40
hosts/kirsty/system.scm
View file

@ -11,11 +11,12 @@
#:use-module (gnu services security-token) #:use-module (gnu services security-token)
#:use-module (gnu services sound) #:use-module (gnu services sound)
#:use-module (gnu services virtualization) #:use-module (gnu services virtualization)
#:use-module (gnu services xorg)
#:use-module (gnu system locale) #:use-module (gnu system locale)
#:use-module (gnu system setuid) #:use-module (gnu system setuid)
#:use-module (nongnu packages linux) #:use-module (nongnu packages linux)
#:use-module (nongnu system linux-initrd) #:use-module (nongnu system linux-initrd)
#:use-module (services swaylock)) #:use-module (config base))
(define host-dir (dirname (module-filename (current-module)))) (define host-dir (dirname (module-filename (current-module))))
@ -66,7 +67,7 @@
(name "timotej") (name "timotej")
(comment "Timotej Lazar") (comment "Timotej Lazar")
(group "users") (group "users")
(supplementary-groups '("cdrom" "kvm" "netdev" "wheel")) (supplementary-groups '("audio" "cdrom" "dialout" "kvm" "netdev" "seat" "wheel"))
(home-directory "/home/timotej")) (home-directory "/home/timotej"))
%base-user-accounts)) %base-user-accounts))
@ -78,28 +79,51 @@
(extra-special-file "/usr/bin/env" (file-append coreutils "/bin/env")) (extra-special-file "/usr/bin/env" (file-append coreutils "/bin/env"))
(extra-special-file "/bin/bash" (file-append bash "/bin/bash")) (extra-special-file "/bin/bash" (file-append bash "/bin/bash"))
(service seatd-service-type)
(service greetd-service-type
(greetd-configuration
(greeter-supplementary-groups '("input" "video"))
(terminals
(map (lambda (tty)
(greetd-terminal-configuration
(terminal-vt tty)
(terminal-switch #t)))
'("1" "2" "3" "4" "5" "6")))))
;; Networking. ;; Networking.
(service network-manager-service-type) (service network-manager-service-type)
(service wpa-supplicant-service-type) (service wpa-supplicant-service-type)
(service modem-manager-service-type) (service modem-manager-service-type)
(service usb-modeswitch-service-type) (service usb-modeswitch-service-type)
(service openntpd-service-type (service tor-service-type
(openntpd-configuration (servers '("pool.ntp.org")))) (tor-configuration
(service tor-service-type) (config-file (plain-file "torrc" "SocksPort 127.0.0.1:9050 IsolateDestAddr"))))
;; Desktop. ;; Desktop.
(service elogind-service-type)
(service udisks-service-type) (service udisks-service-type)
(service upower-service-type) (service upower-service-type)
(service alsa-service-type) (service alsa-service-type)
(service pcscd-service-type) (service pcscd-service-type)
(service swaylock-service-type)
(service screen-locker-service-type
(screen-locker-configuration
(name "swaylock")
(program (file-append swaylock "/bin/swaylock"))
(using-pam? #t)
(using-setuid? #f)))
(service qemu-binfmt-service-type (service qemu-binfmt-service-type
(qemu-binfmt-configuration (qemu-binfmt-configuration
(platforms (lookup-qemu-platforms "arm" "aarch64" "mips64el" "x86")))) (platforms (lookup-qemu-platforms "arm" "aarch64" "mips64el" "x86"))))
(modify-services %base-services (modify-services (base-services)
(delete login-service-type)
(delete mingetty-service-type)
(delete mingetty-service-type)
(delete mingetty-service-type)
(delete mingetty-service-type)
(delete mingetty-service-type)
(delete mingetty-service-type)
;; Don’t use up all CPU (and RAM) when compiling. ;; Don’t use up all CPU (and RAM) when compiling.
(guix-service-type config => (guix-service-type config =>
(guix-configuration (guix-configuration