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

(load "system.scm")

(let ((os (install-to (uuid "60c115b5-08f2-435b-95e5-d3b81ffba4f4" 'ext4))))
  (operating-system
    (inherit os)
    (host-name "rose")
    (services
      (append
        (list
          (pam-mount
            "kook"
            "/dev/disk/by-uuid/c896e07f-d2ed-4390-8ce0-b82080d1bdc2")
          pam-audio)
        (desktop-environment (operating-system-keyboard-layout os))
        (nonguix %desktop-services)))
    (kernel linux)
    (initrd microcode-initrd)
    (firmware (list linux-firmware))
    (file-systems
      (cons* (file-system
               (mount-point "/boot/efi")
               (device (uuid "545B-970F" 'fat32))
               (type "vfat"))
             (operating-system-file-systems os)))))