(define-module (systems daeva)
  #:use-module (guix)
  #:use-module (guix records)
  #:use-module (guix utils)
  #:use-module (gnu)
  #:use-module (gnu packages)
  #:use-module (gnu services avahi)
  #:use-module (gnu services base)
  #:use-module (gnu services cups)
  #:use-module (gnu services dbus)
  #:use-module (gnu services desktop)
  #:use-module (gnu services docker)
  #:use-module (gnu services linux)
  #:use-module (gnu services mcron)
  #:use-module (gnu services networking)
  #:use-module (gnu services nix)
  #:use-module (gnu services pm)
  #:use-module (gnu services security-token)
  #:use-module (gnu services virtualization)
  #:use-module (gnu services xorg)
  #:use-module (gnu system nss)
  #:use-module (gnu packages gnome)
  #:use-module (gnu packages linux)
  #:use-module (nongnu packages linux)
  #:use-module (nongnu packages mozilla)
  #:use-module (nongnu packages printers)
  #:use-module (nongnu system linux-initrd)
  #:use-module (kbg)
  #:use-module (kbg packages profiles base)
  #:use-module (kbg packages profiles desktop)
  #:use-module (kbg services desktop)
  #:use-module (kbg services dict)
  #:use-module (kbg services nftables)
  #:use-module ((kbg system mcron) :prefix mcron:)
  #:use-module (kbg system xorg))

(define daeva-system
  (operating-system
   (kernel linux-lts)
   (kernel-loadable-modules
    (list v4l2loopback-linux-module))
   (firmware (list linux-firmware))
   (initrd microcode-initrd)
   (host-name "daeva")
   (timezone "America/Boise")
   (locale "en_US.utf8")

   (initrd-modules (append (list "dm-raid" "raid1")
                           %base-initrd-modules))

   (keyboard-layout (keyboard-layout "us" #:options '("ctrl:nocaps")))

   (bootloader (bootloader-configuration
                (bootloader grub-efi-removable-bootloader)
                (targets '("/boot/efi"))
                (keyboard-layout keyboard-layout)))

   (mapped-devices
    (list (mapped-device
           (source (list "/dev/nvme0n1p1" "/dev/nvme1n1p1"))
           (target "/dev/md126")
           (type raid-device-mapping))
          (mapped-device
           (source (list "/dev/nvme0n1p2" "/dev/nvme1n1p2"))
           (target "/dev/md127")
           (type raid-device-mapping))
          (mapped-device
           (source (uuid "e2690af0-3fa8-4d6c-bccc-d534ce418e20"))
           (target "luks-e2690af0-3fa8-4d6c-bccc-d534ce418e20")
           (type luks-device-mapping))))

   (file-systems (append
                  (list (file-system
                         ;; (device (uuid "16ced1b2-3e7f-4d04-a34e-b10ff033f67b"))
                         (device "/dev/mapper/luks-e2690af0-3fa8-4d6c-bccc-d534ce418e20")
                         (mount-point "/")
                         (type "ext4")
                         (dependencies mapped-devices))
                        (file-system
                         ;; (device (uuid "F134-4F4E" 'fat))
                         (device "/dev/md126")
                         (mount-point "/boot/efi")
                         (type "vfat")
                         (dependencies mapped-devices)))
                  %base-file-systems))

   (swap-devices (list (swap-space (target "/swapfile")
                                   (dependencies mapped-devices))))

   (users (cons (user-account
                 (name "kb")
                 (group "users")
                 (supplementary-groups '("audio"
                                         "input"
                                         "kvm"
                                         "libvirt"
                                         "lp"
                                         "netdev"
                                         "tty"
                                         "video"
                                         "wheel")))
                %base-user-accounts))

   ;; This is where we specify system-wide packages.
   (packages (append %kbg-base-packages
                     %kbg-bare-desktop-packages
                     %base-packages))

   ;; Add GNOME and Xfce---we can choose at the log-in screen
   ;; by clicking the gear.  Use the "desktop" services, which
   ;; include the X11 log-in service, networking with
   ;; NetworkManager, and more.
   (services (append (list (service gnome-desktop-service-type)
                           ;;(geoclue-service)
                           (bluetooth-service #:auto-enable? #t)
                           (service cups-service-type
                                    (cups-configuration
                                     (web-interface? #t)))
                           dictionary-service
                           (set-xorg-configuration
                            (xorg-configuration
                             (keyboard-layout keyboard-layout)
                             (extra-config (list %xorg-libinput-config))))
                           (service nix-service-type)
                           (service pcscd-service-type)
                           (service tlp-service-type
                                    (tlp-configuration
                                     (cpu-scaling-governor-on-ac (list "performance"))
                                     (cpu-scaling-governor-on-bat (list "powersave"))
                                     (cpu-scaling-min-freq-on-ac  2400000)
                                     (cpu-scaling-min-freq-on-bat 1200000)
                                     (cpu-boost-on-ac? #t)
                                     (cpu-boost-on-bat? #f)
                                     (energy-perf-policy-on-ac "performance")
                                     (energy-perf-policy-on-bat "powersave")
                                     (pcie-aspm-on-ac "performance")
                                     (pcie-aspm-on-bat "powersupersave")))
                           (nftables-service "daeva")
                           (simple-service 'my-cron-jobs
                                           mcron-service-type
                                           (list mcron:guix-gc-repair-job))
                           (service singularity-service-type)
                           (service virtlog-service-type)
                           (service libvirt-service-type)
                           (service tor-service-type
                                    (tor-configuration))
                           (simple-service 'subordinate-ids
                                           special-files-service-type
                                           `(("/etc/subuid" ,(mixed-text-file "subuid"
                                                                              "kb:100000:65536"
                                                                              "\n"))
                                             ("/etc/subgid" ,(mixed-text-file "subgid"
                                                                              "kb:100000:65536"
                                                                              "\n")))))
                     %kbg-desktop-services))

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

daeva-system