134 lines
3.4 KiB
Scheme
134 lines
3.4 KiB
Scheme
;; -*- mode: guix-scheme -*-
|
|
|
|
(use-modules
|
|
(gnu)
|
|
(gnu image)
|
|
(gnu services authentication)
|
|
(gnu services avahi)
|
|
(gnu services base)
|
|
(gnu services dbus)
|
|
(gnu services desktop)
|
|
(gnu services linux)
|
|
(gnu services networking)
|
|
(gnu services pm)
|
|
(gnu services xorg)
|
|
(gnu system nss))
|
|
|
|
(use-service-modules desktop
|
|
xorg)
|
|
|
|
(use-package-modules bootloaders
|
|
certs
|
|
emacs
|
|
emacs-xyz
|
|
terminals
|
|
wm
|
|
xorg)
|
|
|
|
(operating-system
|
|
(host-name "ziltis-machine")
|
|
(timezone "Europe/Berlin")
|
|
(locale "de_DE.utf8")
|
|
(keyboard-layout
|
|
(keyboard-layout "de" #:options '("caps:swapescape")))
|
|
(bootloader
|
|
(bootloader-configuration
|
|
(bootloader grub-efi-bootloader)
|
|
(targets
|
|
'("/boot/efi"))
|
|
(keyboard-layout keyboard-layout)))
|
|
(file-systems
|
|
(cons*
|
|
(file-system
|
|
(device "/dev/disk/by-partlabel/EFI\\x20System\\x20Partition")
|
|
(mount-point "/boot/efi")
|
|
(type "vfat"))
|
|
(file-system
|
|
(device "/dev/disk/by-partlabel/guix-root")
|
|
(mount-point "/")
|
|
(type "xfs"))
|
|
%base-file-systems))
|
|
(swap-devices
|
|
(list
|
|
(swap-space
|
|
(target "/dev/disk/by-partlabel/swap")
|
|
(discard? #t))))
|
|
(users
|
|
(cons*
|
|
(user-account
|
|
(name "zilti")
|
|
(group "users")
|
|
(supplementary-groups
|
|
'("wheel"
|
|
"netdev"
|
|
"seat"
|
|
"audio"
|
|
"video"
|
|
"libvirt")))
|
|
%base-user-accounts))
|
|
(packages
|
|
(append
|
|
(specifications->packages
|
|
(list
|
|
"nss-certs"
|
|
"emacs"
|
|
"emacs-desktop-environment"
|
|
"git"
|
|
"kitty"
|
|
"swayfx"))
|
|
%base-packages))
|
|
(services
|
|
(append
|
|
(modify-services
|
|
%desktop-services
|
|
(delete login-service-type)
|
|
(delete mingetty-service-type))
|
|
(list
|
|
(service ntp-service-type)
|
|
(service gdm-service-type
|
|
(gdm-configuration
|
|
(wayland? #t)))
|
|
(service avahi-service-type)
|
|
(service elogind-service-type)
|
|
(service seatd-service-type)
|
|
(service polkit-service-type
|
|
polkit-wheel-service)
|
|
(service upower-service-type)
|
|
(service tlp-service-type)
|
|
(service thermald-service-type
|
|
(thermald-configuration
|
|
(adaptive? #t)))
|
|
(service udisks-service-type)
|
|
(service bluetooth-service-type)
|
|
(service inputattach-service-type)
|
|
(service fstrim-service-type)
|
|
(service earlyoom-service-type
|
|
(earlyoom-configuration
|
|
(minimum-available-memory 5)
|
|
(minimum-free-swap 5)))
|
|
(service greetd-service-type
|
|
(greetd-configuration
|
|
(greeter-supplementary-groups
|
|
(list "video" "input" "seat"))
|
|
(terminals
|
|
(list
|
|
(greetd-terminal-configuration
|
|
(terminal-vt "1")
|
|
(terminal-switch #t)
|
|
(default-session-command
|
|
(greetd-wlgreet-sway-session
|
|
(sway 'swayfx)
|
|
;; (sway-configuration #f)
|
|
)))))))
|
|
(service fprintd-service-type)
|
|
(service screen-locker-service-type
|
|
(screen-locker-configuration
|
|
(name "swaylock")
|
|
(program
|
|
(file-append swaylock-effects "/bin/swaylock"))
|
|
(using-setuid? #f)))
|
|
(service libvirt-service-type
|
|
(libvirt-configuration
|
|
(unix-sock-group "libvirt"))))))
|
|
(name-service-switch %mdns-host-lookup-nss))
|