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

(load "system.scm")

(let ((os (install-to (uuid "a942a6ac-012a-46c5-984e-5f53532a3253" 'ext4))))
  (operating-system
    (inherit os)
    (host-name "pine")
    (services
      (append
        (list
          (pam-mount "kook" "/dev/md0")
          pam-audio
          (ssh-only `(("kook" ,(local-file "files/authorized_keys")))))
        (desktop-environment (operating-system-keyboard-layout os))
        (nonguix %desktop-services)))
    (kernel linux)
    (initrd microcode-initrd)
    (firmware (list linux-firmware))
    (mapped-devices
      (list (mapped-device
              (source (list "/dev/sdb" "/dev/sdc"))
              (target "/dev/md0")
              (type raid-device-mapping))
            ))
    (file-systems
      (cons* (file-system
               (mount-point "/boot/efi")
               (device (uuid "7974-61F4" 'fat32))
               (type "vfat"))
             (operating-system-file-systems os)))))