;; SPDX-License-Identifier: CC0-1.0

;; Copyright (C) 2023 W. Kosior <koszko@koszko.org>
;;
;; Available under the terms of Creative Commons Zero v1.0 Universal.

(use-modules ((gnu image) #:select (image partition))
             ((guix platforms x86) #:select (x86_64-linux))
             ((guix gexp) #:select (gexp)))

(define %os
  (load (string-append (dirname (current-filename)) "/salamina.scm")))

(image
 (format 'compressed-qcow2)
 (platform x86_64-linux)
 (operating-system %os)
 (partition-table-type 'mbr)
 (partitions
  (list
   (partition
    (size 'guess)
    (offset (* 1024 1024))
    (label "salamina-root")
    (file-system "ext4")
    (flags '(boot))
    (initializer (gexp initialize-root-partition)))))
 (volatile-root? #f))