;; Root file system for the GL-MT6000: a disk image with one ext4 partition
;; labelled "Guix" at 1 MiB.  build-mt6000-root.sh cuts the partition out;
;; it is written to the `rootfs' partition (p7, 7.2 GiB), where the
;; resize-root service grows it.  The kernel side is the FIT in p6
;; (scripts/mt6000-fit.sh).
;;
;; The image platform is aarch64, so Guix cross-builds from x86_64.

(use-modules (gnu image)
             (gnu system image)
             (guix platforms arm))

;; Evaluates mt6000.scm in this module, defining %mt6000-os.
(primitive-load (string-append (or (and=> (current-filename) dirname) ".")
                               "/mt6000.scm"))

(define MiB (expt 2 20))
(define GiB (expt 2 30))

(image
  (name 'guix-mt6000)
  (format 'disk-image)
  (partition-table-type 'mbr)
  (platform aarch64-linux)
  (operating-system %mt6000-os)
  (partitions (list (partition
                      (inherit root-partition)
                      (offset MiB)
                      (label "Guix")
                      (size (* 4 GiB))))))