(use-modules (gnu)
             (gnu system))
(use-modules (nongnu packages linux)
             (nongnu system linux-initrd))

(load "system.common.scm")

(let ((os (install-to (uuid "???" 'ext4))))
  (operating-system
    (inherit os)
    (host-name "pine")
    (services
      (modify-services
        (xfce-desktop-services os)))
    (mapped-devices
      (list (mapped-device
              (source (uuid "???"))
              (target "HOME")
              (type luks-device-mapping))))
    (file-systems
      (cons* (file-system
               (mount-point "/home")
               (device (uuid "???" 'ext4))
               (type "ext4")
               (dependencies mapped-devices))
             (file-system
               (mount-point "/boot/efi")
               (device (uuid "???" 'fat32))
               (type "vfat"))
             (operating-system-file-systems os)))))