(use-modules
 (gnu)
 (gnu system nss)
 (gnu services base)
 (gnu services pm)
 (nongnu packages linux)
 (nongnu system linux-initrd)
 (guix utils)
 (srfi srfi-1))

(use-service-modules desktop xorg dns networking)
(use-package-modules bootloaders certs shells ssh version-control emacs vim wm freedesktop xorg fontutils)

;; Autologin (ker imamo encrypted root!)
(define (auto-login-to-tty config tty user)
  (if (string=? tty (mingetty-configuration-tty config))
        (mingetty-configuration
         (inherit config)
         (auto-login user))
        config))

(define %my-services
  (modify-services %desktop-services
    (mingetty-service-type config =>
                           (auto-login-to-tty
                            config "tty2" "g1smo"))))

(operating-system
  (host-name "pnx")
  (timezone "Europe/Ljubljana")
  (locale "sl_SI.utf8")

  ;; Use the UEFI variant of GRUB with the EFI System
  ;; Partition mounted on /boot/efi.
  (bootloader (bootloader-configuration
                (bootloader grub-efi-bootloader)
                (targets '("/boot/efi"))))

  (kernel linux)
  (initrd microcode-initrd)
  (firmware (list linux-firmware))

  (users (cons* (user-account
                  (name "g1smo")
                  (comment "Yuri")
                  (group "users")
                  (uid 1000)
                  (shell (file-append zsh "/bin/zsh"))
                  (supplementary-groups '("wheel" "netdev"
                                          "audio" "video"
                                          "dialout" "users" "lp"))
                  (home-directory "/home/g1smo"))
               %base-user-accounts))

  (packages (append (list (specification->package "i3-wm")
                          (specification->package "i3status")
                          (specification->package "dmenu")
                          (specification->package "st")
                          ;; sistem
                          (specification->package "lvm2")
                          ;; WM zadeve
                          (specification->package "sway")
                          (specification->package "swaybg")
                          (specification->package "rofi")
                          (specification->package "i3-autotiling")
                          (specification->package "waybar")
                          (specification->package "gammastep")
                          (specification->package "foot")
                          (specification->package "eog")
                          (specification->package "nautilus")
                          ;; Urejevalniki teksta
                          (specification->package "emacs")
                          (specification->package "vim")
                          ;; Razno
                          (specification->package "zsh")
                          (specification->package "git")
                          (specification->package "file"))
                    %base-packages))


  (services
   (cons* (service gnome-desktop-service-type)
          (service network-manager-service-type
                   (network-manager-configuration
                    (dns "dnsmasq")))
          (service pam-limits-service-type
                   (list
                    (pam-limits-entry "@audio" 'both 'rtprio 99)
                    (pam-limits-entry "@audio" 'both 'memlock 'unlimited)))
          (service tlp-service-type
                   (tlp-configuration
                    (cpu-scaling-governor-on-ac (list "ondemand"))
                    (max-lost-work-secs-on-ac 0)
                    (ahci-runtime-pm-timeout 0)))
          (service thermald-service-type)
          (service bluetooth-service-type)
          (remove
           (lambda (service)
             (eq? network-manager-service-type (service-kind service)))
           %desktop-services)))

  (swap-devices
   (list (swap-space
          (target (uuid "76019829-e8eb-477c-a08a-d2ccff3fcdd5")))))

  (mapped-devices
   (list (mapped-device 
           (source (uuid "3020ad8b-ee01-49e2-8a46-3f66c902ef67")) 
           (target "sda3_crypt")
           (type luks-device-mapping))
         (mapped-device
           (source "dbn-vg")
           (targets (list "dbn--vg-guix" "dbn--vg-home"))
           (type lvm-device-mapping))))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss)

  (file-systems
   (cons* (file-system
           (mount-point "/")
           (device "/dev/mapper/dbn--vg-guix")
           (type "btrfs")
           (options "subvol=@root,compress-force=zstd,space_cache=v2")
           (dependencies mapped-devices))
          (file-system
           (mount-point "/home")
           (device "/dev/mapper/dbn--vg-home")
           (type "ext4")
           (dependencies mapped-devices))
          (file-system
            (mount-point "/boot/efi")
            (device (uuid "3F44-75AB" 'fat))
            (type "vfat"))
          %base-file-systems)))