(use-modules
  (gnu)
  (gnu image)
  (gnu packages gnome)
  (gnu services admin)
  (gnu services authentication)
  (gnu services base)
  (gnu services configuration)
  (gnu services dbus)
  (gnu services desktop)
  (gnu services linux)
  (gnu services networking)
  (gnu services pm)
  (gnu services sound)
  (gnu services virtualization)
  (gnu services xorg)
  (gnu system nss)
  (nongnu packages linux)
  (nongnu system linux-initrd))

(use-service-modules desktop xorg)

(use-package-modules
  bootloaders
  certs
  containers
  emacs
  emacs-xyz
  fonts
  pciutils
  readline
  terminals
  version-control
  wm
  xorg)

(operating-system
 (host-name "ziltis-machine")
 (timezone "Europe/Berlin")
 (locale "de_DE.utf8")
 (keyboard-layout
  (keyboard-layout "de" #:options '("caps:swapescape")))
 (kernel linux)
 (initrd microcode-initrd)
 (firmware (list linux-firmware))
 (bootloader
  (bootloader-configuration
   (bootloader grub-efi-bootloader)
   (targets
    '("/boot/efi"))
   (keyboard-layout keyboard-layout)))
 #;(file-systems %local-filesystem)
 #;(swap-devices %local-swap)
  (file-systems (append (list
                         (file-system
                          (device (file-system-label "EFI"))
                          (mount-point "/boot/efi")
                          (type "vfat"))
                         (file-system
                          (device (file-system-label "guix"))
                          (mount-point "/")
                          (type "xfs")))
                        %base-file-systems))
  (swap-devices
   (list (swap-space (target (file-system-label "swap")))))
 (users
  (cons*
   (user-account
    (name "zilti")
    (group "users")
    (supplementary-groups
     '("avahi" "users" "wheel" "netdev" "audio" "cdrom" "video" "libvirt" "seat")))
   %base-user-accounts))
  (packages
   (append
    (list emacs
          emacs-desktop-environment
          font-terminus
          git
          hwdata
          nss-certs
          network-manager
          podman
          readline
          xf86-video-amdgpu)
    
    %base-packages))
  (services
   (append
    (modify-services
     %desktop-services
     (delete gdm-service-type)
     (delete screen-locker-service-type)
     (delete login-service-type)
     (delete mingetty-service-type)
     (delete console-font-service-type)
     (delete elogind-service-type)
     (delete pulseaudio-service-type)
     (guix-service-type config => (guix-configuration
                                   (inherit config)
                                   (substitute-urls
                                    (append (list "https://substitutes.nonguix.org")
                                            %default-substitute-urls))
                                   (authorized-keys
                                    (append (list (local-file "./keys/non-guix.pub"))
                                            %default-authorized-guix-keys)))))
    (list (service tlp-service-type (tlp-configuration))
          (service
            thermald-service-type
            (thermald-configuration (adaptive? #t)))
          (service
            bluetooth-service-type
            (bluetooth-configuration))
          (service
            earlyoom-service-type
            (earlyoom-configuration
              (minimum-available-memory 5)
              (minimum-free-swap 5)))
          (service
            inputattach-service-type
            (inputattach-configuration))
          (service
            libvirt-service-type
            (libvirt-configuration
              (unix-sock-group "libvirt")))
          (service
            fstrim-service-type
            (fstrim-configuration))
          (service
            fprintd-service-type
            (fprintd-configuration))
          (service
            seatd-service-type
            (seatd-configuration)))
    
    (list polkit-wheel-service)
    (list
     (service greetd-service-type
              (greetd-configuration
               (greeter-supplementary-groups
                (list "video" "input"))
               (terminals
                (list
                 (greetd-terminal-configuration
                  (terminal-vt "1"))
                 (greetd-terminal-configuration
                  (terminal-vt "2"))
                 (greetd-terminal-configuration
                  (terminal-vt "3"))
                 (greetd-terminal-configuration
                  (terminal-vt "4"))
                 #;(greetd-terminal-configuration
                 (terminal-vt "7")
                 (terminal-switch #t)
                 (default-session-command
                 (greetd-wlgreet-session
                 (command
                 (file-append swayfx "/bin/sway")))))
                 (greetd-terminal-configuration
                  (terminal-vt "8")))))))
    (list
     (service screen-locker-service-type
              (screen-locker-configuration
               (name "swaylock")
               (program
                (file-append swaylock-effects "/bin/swaylock"))
               (using-setuid? #f))))
    (list
     (service unattended-upgrade-service-type
      (unattended-upgrade-configuration
       (schedule "5 12 * * 1")
       #;(channels
        (cons* (channel
                (name 'nonguix)
                (url "https://gitlab.com/nonguix/nonguix")
                ;; Enable signature verification:
                (introduction
                 (make-channel-introduction
                  "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
                  (openpgp-fingerprint
                   "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))
             (channel
                           (name 'emacs-melpa)
                           (url "https://github.com/babariviere/guix-emacs")
                           (introduction
         (make-channel-introduction
          "72ca4ef5b572fea10a4589c37264fa35d4564783"
          (openpgp-fingerprint
           "261C A284 3452 FB01 F6DF  6CF4 F9B7 864F 2AB4 6F18"))))
               (channel
                (name 'ziltis-channel)
                (url "https://gitea.lyrion.ch/zilti/guixchannel"))
               %default-channels)))))
   ))
 (name-service-switch %mdns-host-lookup-nss))