guixconfig/config.scm

;; -*- mode: guix-scheme -*-

(use-modules
 (gnu)
 (gnu image)
 (gnu services avahi)
 (gnu services base)
 (gnu services networking)
 (gnu services pm)
 (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 network-manager-service-type)
    (service wpa-supplicant-service-type)
    (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)
    (service 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))