(define-module (oms image)
  #:use-module (guix)
  #:use-module (gnu image)
  #:use-module (gnu packages bootloaders)
  #:use-module (oms systems))

(define-public base-image
  (image
    (name 'oms-base)
    (format 'disk-image)
    (operating-system (base-operating-system "OMS-pohja"))
    (partition-table-type 'gpt)
    (partitions
     (list (partition
             (file-system "vfat")
             (flags '(esp))
             (initializer #~(lambda* (root #:key #:allow-other-keys)
                              (initialize-efi-partition root #:grub-efi #+grub-efi)))
             (label "OMS-F32-EFI")
             (size (expt 2 28))) ; 256 MiB
           (partition
             (file-system "swap")
             (initializer #~(const #t)) ; default is initialize-root-partition
             (label "oms-guix-swap")
             (size (expt 2 34))) ; 16 GiB
           (partition
             (file-system "btrfs")
             (flags '(boot))
             (initializer #~initialize-root-partition)
             (label "oms-guix-system-btrfs-root"))))
    (volatile-root? #f)))