31 lines
882 B
Scheme
31 lines
882 B
Scheme
(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)))))
|