;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This configuration adapts the base-level 'ymir' ;;
;; OS declaration for 'kvasir', a bootable usb.    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define-module (vali)
  #:use-module (ymir)
  #:use-module (gnu)
  #:use-module (gnu home)
  #:use-module (gnu packages)
  #:use-module (gnu home services)
  #:use-module (gnu services)
  #:use-module (guix gexp)
  #:use-module (xdg)
  #:use-module (shell)
  #:use-module (ssh)
  #:use-module (gpg)
  #:use-module (gnu image)
  #:use-module (gnu system image)
  #:use-module (xmodmap)
  #:use-module (base))


(define system
  (operating-system
   (inherit ymir)
   (host-name "kvasir")

   (file-systems (cons* (file-system
                         (mount-point "/boot/efi")
                         (device (uuid
                                  "8A13-7018"
                                  'fat32))
                         (type "vfat"))
                        (file-system
                         (mount-point "/")
                         (device (uuid
                                  "69a3593b-12bd-40ad-a932-007674a8cfe8"))
                         (type "ext4")) %base-file-systems))))

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

(image
 (format 'disk-image)
 (operating-system system)
 (partitions
  (list
   (partition
    (size (* 40 MiB))
    (offset (* 1024 1024))
    (label "GNU-ESP")
    (file-system "vfat")
    (flags '(esp))
    (initializer (gexp initialize-efi-partition)))
   (partition
    (size (* 28 GiB))
    (label root-label)
    (file-system "ext4")
    (flags '(boot))
    (initializer (gexp initialize-root-partition))))))