guixconfig/config.scm
2023-11-29 20:47:22 +01:00

131 lines
3.4 KiB
Scheme

;; -*- mode: guix-scheme -*-
(use-modules
(gnu)
(gnu build file-systems)
(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 virtualization)
(gnu services xorg)
(gnu system nss))
(use-service-modules desktop
xorg)
(use-package-modules bootloaders
certs
emacs
emacs-xyz
fonts
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 (uuid
(read-partition-uuid
(find-partition-by-label "EFI System Partition"))))
#;(device "/dev/disk/by-partlabel/EFI\\x20System\\x20Partition")
(mount-point "/boot/efi")
(type "vfat"))
(file-system
(device (find-partition-by-label "guix-root"))
#;(device "/dev/disk/by-partlabel/guix-root")
(mount-point "/")
(type "xfs"))
%base-file-systems))
(swap-devices
(list
(swap-space
(target (find-partition-by-label "swap"))
#;(target "/dev/disk/by-partlabel/swap")
(discard? #t))))
(users
(cons*
(user-account
(name "zilti")
(group "users")
(supplementary-groups
'("wheel"
"netdev"
"audio"
"video"
"libvirt")))
%base-user-accounts))
(packages
(append
(specifications->packages
(list
"nss-certs"
"emacs"
"emacs-desktop-environment"
"font-terminus"
"git"
"kitty"
"swayfx"))
%base-packages))
(services
(append
(modify-services
%desktop-services
(delete login-service-type)
(delete mingetty-service-type)
(delete console-font-service-type))
(list
(service tlp-service-type)
(service thermald-service-type
(thermald-configuration
(adaptive? #t)))
(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"))
(terminals
(list
(greetd-terminal-configuration
(terminal-vt "7")
(terminal-switch #t)
(default-session-command
(greetd-wlgreet-sway-session
(sway (specification->package "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))