From 94e846c01d59d433381b64e09d8add1a6554bf93 Mon Sep 17 00:00:00 2001 From: Alissa Istleyeva Date: Tue, 9 Sep 2025 23:41:40 +0500 Subject: Patch libvirt --- dom0/system-laptop.scm | 29 ++++++++++++++++++----------- 1 file changed, 18 insertions(+), 11 deletions(-) (limited to 'dom0/system-laptop.scm') diff --git a/dom0/system-laptop.scm b/dom0/system-laptop.scm index 052ff5f..d7f9ba5 100644 --- a/dom0/system-laptop.scm +++ b/dom0/system-laptop.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 -- cgit v1.2.3