(define-module (guix sputnik))

(use-modules (system base)
             (system develop)
             (system nvidia)
             (gnu system)
             (gnu services))

(let ((os (make-system #:use-nonguix? #t
                       #:host-name "sputnik"
                       #:timezone "America/Kentucky/Louisville"
                       #:user-login "christopher"
                       #:user-fullname "Christopher R. Nelson"

                       #:swap-device (make-swap '("/dev/nvme0n1p2"))
                       #:root-device (make-fs "/" "/dev/nvme0n1p3" "btrfs")
                       #:efi-device (make-fs "/boot/efi" "/dev/nvme0n1p1" "vfat")

                       #:packages '()
                       #:role 'nvidia-server)))
  (operating-system
   (inherit os)

   (kernel-arguments nvidia-kernel-arguments)
   (services (append
              (operating-system-user-services os)
              nvidia-services
              develop-services))
   (packages (append
              %base-packages
              nvidia-packages
              develop-packages))
   (file-systems (append
                  (list (make-fs "/genai" "/dev/nvme1n1p1" "btrfs"))
                  (operating-system-file-systems os)))))