(use-modules
  (gnu)
  (nongnu packages linux)
  (nongnu packages nvidia)
  (gnu packages xorg)
  (nongnu system linux-initrd)
  (guix transformations)
  (gnu packages gnome)
  (gnu packages haskell-apps)
  (gnu packages shells))

(use-service-modules
  cups
  desktop
  docker
  linux
  networking
  nix
  ssh
  virtualization
  xorg)

(use-package-modules package-management)

(define transform
  (options->transformation
   '((with-graft . "mesa=nvda"))))

;; Allow members of the "video" group to change the screen brightness.
(define %backlight-udev-rule
  (udev-rule
   "90-backlight.rules"
   (string-append "ACTION==\"add\", SUBSYSTEM==\"backlight\", "
                  "RUN+=\"/run/current-system/profile/bin/chgrp video /sys/class/backlight/%k/brightness\""
                  "\n"
                  "ACTION==\"add\", SUBSYSTEM==\"backlight\", "
                  "RUN+=\"/run/current-system/profile/bin/chmod g+w /sys/class/backlight/%k/brightness\"")))

(define %my-desktop-services
  (modify-services %desktop-services
                   (delete gdm-service-type)
                   (elogind-service-type config =>
                                         (elogind-configuration (inherit config)
                                                                (handle-lid-switch-external-power 'suspend)))
                   (udev-service-type config =>
                           (udev-configuration (inherit config)
                           (rules (cons kmonad
                                       (udev-configuration-rules config)))))
                   (udev-service-type config =>
                                      (udev-configuration (inherit config)
                                                          (rules (cons %backlight-udev-rule
                                                                       (udev-configuration-rules config)))))
                   (network-manager-service-type config =>
                                                 (network-manager-configuration (inherit config)
                                                                                (vpn-plugins (list network-manager-openvpn))))))

(define %xorg-config
    "Section \"Device\"
        Identifier     \"Device0\"
        Driver         \"nvidia\"
        VendorName     \"NVIDIA Corporation\"
        BoardName      \"GeForce GTX 1050 Ti\"
    EndSection

    Section \"ServerFlags\"
        Option \"IgnoreABI\" \"1\"
    EndSection

    Section \"Device\"
        Identifier  \"intel\"
        Driver      \"modesetting\"
    EndSection

    Section \"Screen\"
        Identifier \"intel\"
        Device \"intel\"
    EndSection

    Section \"InputClass\"
        Identifier \"Touchpads\"
        Driver \"libinput\"
        MatchDevicePath \"/dev/input/event*\"
        MatchIsTouchpad \"on\"

        Option \"Tapping\" \"on\"
        Option \"TappingDrag\" \"on\"
        Option \"DisableWhileTyping\" \"on\"
        Option \"MiddleEmulation\" \"on\"
        Option \"ScrollMethod\" \"twofinger\"
    EndSection

    Section \"InputClass\"
        Identifier \"Keyboards\"
        Driver \"libinput\"
        MatchDevicePath \"/dev/input/event*\"
        MatchIsKeyboard \"on\"
    EndSection
")

(operating-system
  (kernel linux-lts)
  (initrd microcode-initrd)
  (firmware (list linux-firmware))
  (kernel-arguments
   (append '("modprobe.blacklist=nouveau")
           %default-kernel-arguments))
  (kernel-loadable-modules (list nvidia-driver))
  (locale "en_US.utf8")
  (timezone "Europe/Warsaw")
  (keyboard-layout
    (keyboard-layout "pl" "colemak"))
  (host-name "jimi")
  (users (cons* (user-account
                  (name "m")
                  (comment "Marcin")
                  (group "users")
                  (home-directory "/home/m")
                  (shell (file-append zsh "/bin/zsh"))
                  (supplementary-groups
                    '("wheel" "netdev" "audio" "video" "docker" "kvm" "lp")))
                %base-user-accounts))
  (packages
    (append
      (list (specification->package "i3-wm")
            (specification->package "i3status")
            (specification->package "dmenu")
            (specification->package "git")
            (specification->package "ripgrep")
            (specification->package "fd")
            (specification->package "exa")
            (specification->package "nix")
            (specification->package "st")
            (specification->package "emacs")
            (specification->package "emacs-guix")
            (specification->package "emacs-exwm")
            (specification->package
              "emacs-desktop-environment")
            (specification->package "nss-certs"))
      %base-packages))
  (services
    (append
      (list
       ;;(service gnome-desktop-service-type)
            (simple-service
              'custom-udev-rules udev-service-type
              (list nvidia-driver))
            (service kernel-module-loader-service-type
             '("ipmi_devintf"
               "nvidia"
               "nvidia_modeset"
               ; "nvidia-drm"
               "nvidia_uvm"))
            (service openssh-service-type)
            (service docker-service-type)
            (service tor-service-type)
            (service cups-service-type)
            (service slim-service-type
                (slim-configuration
                  (display ":1")
                  (vt "vt7")
                  (xorg-configuration (xorg-configuration
                    (keyboard-layout keyboard-layout)
                    (modules (cons* nvidia-driver %default-xorg-modules))
                    (server (transform xorg-server))
                    (drivers '("nvidia" "modesetting"))
                    (extra-config (list %xorg-config ))))))
            (service nix-service-type)
            (service libvirt-service-type
              (libvirt-configuration
                (unix-sock-group "libvirt")
                (tls-port "16555")))
           (bluetooth-service #:auto-enable? #t))
      %my-desktop-services))
  (bootloader
    (bootloader-configuration
      (bootloader grub-efi-bootloader)
      (targets (list "/boot/efi"))
      (keyboard-layout keyboard-layout)))
  (swap-devices
    (list (uuid "3c5856e1-58dc-4f3a-b9d7-899053392f66")))
  (mapped-devices
    (list (mapped-device
            (source
              (uuid "053b59e9-8bad-4ea2-9043-f13ef815fa9c"))
            (target "crypthome")
            (type luks-device-mapping))
          (mapped-device
            (source
              (uuid "38fba3f8-7406-47e0-ba97-b759463419e9"))
            (target "cryptroot")
            (type luks-device-mapping))))
  (file-systems
    (cons* (file-system
             (mount-point "/home")
             (device "/dev/mapper/crypthome")
             (type "ext4")
             (dependencies mapped-devices))
           (file-system
             (mount-point "/boot/efi")
             (device (uuid "D16D-0E1D" 'fat32))
             (type "vfat"))
           (file-system
             (mount-point "/")
             (device "/dev/mapper/cryptroot")
             (type "ext4")
             (dependencies mapped-devices))
           %base-file-systems)))