diff options
Diffstat (limited to 'dom0/system.scm')
| -rw-r--r-- | dom0/system.scm | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/dom0/system.scm b/dom0/system.scm index 5278f4d..4b5b03c 100644 --- a/dom0/system.scm +++ b/dom0/system.scm @@ -2,6 +2,7 @@ (define-module (dom0 system) #:use-module (gnu) #:use-module (gnu services guix) + #:use-module (guix transformations) #:use-module (nongnu packages linux) #:use-module (nongnu system linux-initrd) #:use-module (nongnu packages nvidia) @@ -10,9 +11,13 @@ (use-service-modules linux guix desktop pm audio virtualization networking dbus xorg avahi spice) -(use-package-modules linux audio libusb wm fonts +(use-package-modules linux audio libusb wm fonts virtualization freedesktop vim cryptsetup version-control) +(define patch-libvirt + (options->transformation + '((with-patch . "libvirt=patches/libvirt-qemu-caps.patch")))) + (operating-system (locale "en_GB.utf8") (timezone "Europe/London") @@ -149,16 +154,18 @@ ;; Time (service ntp-service-type) - ;; Virtualization - (service libvirt-service-type) - (service virtlog-service-type) - - ;; udev - (udev-rules-service 'pipewire-add-udev-rules pipewire) - - ;; dom0 home - (service guix-home-service-type - `(("dom0" ,dom0-home-environment)))))) + ;; Virtualization + (service libvirt-service-type + (libvirt-configuration + (libvirt (patch-libvirt libvirt)))) + (service virtlog-service-type) + + ;; udev + (udev-rules-service 'pipewire-add-udev-rules pipewire) + + ;; dom0 home + (service guix-home-service-type + `(("dom0" ,dom0-home-environment)))))) ;; Packages (system-wide) (packages (cons* vim |