;; Modules to import to access variables used.
(define-module (dom0 system)
  #:use-module (gnu)
  #:use-module (gnu services guix)
  #:use-module (guix transformations)
  #:use-module (nongnu packages linux)
  #:use-module (nongnu system linux-initrd)
  #:use-module (nongnu packages nvidia)
  #:use-module (nongnu services nvidia)
  #:use-module (dom0 home))

(use-service-modules linux guix desktop pm audio virtualization 
		     networking dbus xorg avahi spice)
(use-package-modules linux audio libusb wm fonts virtualization
		     freedesktop vim cryptsetup version-control)

(define patch-libvirt
  (options->transformation
   '((with-patch . "libvirt=patches/libvirt-qemu-caps.patch"))))

(operating-system
  (locale "en_GB.utf8")
  (timezone "Europe/London")
  (keyboard-layout (keyboard-layout "gb"))
  (host-name "cc")

  ;; Users ('root' is implicit).
  (users (cons* (user-account
                  (name "dom0")
                  (comment "dom0")
                  (group "users")
                  (home-directory "/home/dom0")
                  (supplementary-groups '("wheel" "libvirt" "kvm"
					  "netdev" "audio" "video")))
                %base-user-accounts))

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

  ;; replace post-install
  (swap-devices (list (swap-space
			(target (uuid
				  "7a22a333-6a5d-41fe-93a2-e5781031cfd6")))))
  ;; luks setup - uncomment post-install
  ;; and provide source UUID once known
  (mapped-devices (list (mapped-device
  			  (source (uuid "0c5d284e-e0c7-4dc3-bbca-f82ee6bb82e3"))
  			  (target "system-root")
  			  (type luks-device-mapping))))


  ;; List of file systems to mount
  ;; Run 'blkid' for UUIDs.
  ;; Will change after install
  (file-systems (cons* (file-system
			 (mount-point "/boot/efi")
			 (device (uuid "6919-B0C9"
				       'fat32))
			 (type "vfat"))
		       (file-system
			 (device (file-system-label "system-root"))
			 (mount-point "/")
			 (type "ext4")
			 (dependencies mapped-devices))
		       %base-file-systems))

  ;; Non-free
  (kernel linux)
  (kernel-arguments '("modprobe.blacklist=nouveau"
		      "nvidia_drm.modeset=1"
		      "quiet"))
  (firmware (list linux-firmware))
  (initrd microcode-initrd)

  ;; Services (system-wide)
  (services (append
	      (modify-services %base-services
			       (delete login-service-type)
			       (delete mingetty-service-type)
			       (delete console-font-service-type)
			       ;; Add non-free substitutes
			       (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 "files/nonguix-signing-key.pub"))
					       %default-authorized-guix-keys)))))
	      (list 
	      ;; NVIDIA
	      (service nvidia-service-type)
              ;(service kernel-module-loader-service-type 
		       ;'("nvidia"))
	      ;; systemd dependencies
	      (service elogind-service-type)

	      ;; spice for VMs
	      (service spice-vdagent-service-type)

	      ;; PAM and login
	      (service greetd-service-type
		       (greetd-configuration
			 (greeter-supplementary-groups (list "video" "input"))
                         (terminals
			   (list
			     (greetd-terminal-configuration
			       (terminal-vt "1")
			       (terminal-switch #t))
			     (greetd-terminal-configuration (terminal-vt "2"))
			     (greetd-terminal-configuration (terminal-vt "3"))))))

	      (service console-font-service-type
		       (map (lambda (tty)
			    (cons tty (file-append
					font-terminus
					"/share/consolefonts/ter-132n")))
			    '("tty1" "tty2" "tty3")))

	      (service screen-locker-service-type
		       (screen-locker-configuration
			 (name "swaylock")
			 (program (file-append swaylock "/bin/swaylock"))
			 (using-pam? #t)
			 (using-setuid? #t)))

	      ;; Networking
	      (service network-manager-service-type)
	      (service wpa-supplicant-service-type)
	      (service modem-manager-service-type)
	      
	      ;; dbus
	      (service avahi-service-type)
	      (service udisks-service-type)
	      (service accountsservice-service-type)
	      (service colord-service-type)
	      (service polkit-service-type)
	      (service dbus-root-service-type)

	      ;; Cleanup stayle font cache
              fontconfig-file-system-service

	      ;; Power and thermals
	      (service thermald-service-type)
	      (service power-profiles-daemon-service-type)

	      ;; Xwayland
	      (service x11-socket-directory-service-type)

	      ;; Time
	      (service ntp-service-type)

              ;; Virtualization
              (service libvirt-service-type
                       (libvirt-configuration
                         (libvirt (patch-libvirt libvirt))))
              (service virtlog-service-type)

              ;; udev
              (udev-rules-service 'pipewire-add-udev-rules pipewire)

              ;; dom0 home
              (service guix-home-service-type
                       `(("dom0" ,dom0-home-environment))))))

  ;; Packages (system-wide) 
  (packages (cons* vim
		   git
		   cryptsetup
		   strace
		   %base-packages)))