32 lines
1.1 KiB
Scheme
32 lines
1.1 KiB
Scheme
(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)))
|