(define-module (guix gemini))

(use-modules (system base)
             (system desktop)
             (gnu system)
             (gnu services))

(let ((os (make-system #:use-nonguix? #t
                       #:host-name "gemini"
                       #: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 'desktop)))
  (operating-system
   (inherit os)
   (services (append
              (operating-system-user-services os)
              desktop-services))
   (packages (append
              %base-packages
              desktop-packages))))