Patch libvirt

1 files changed, 18 insertions, 11 deletions

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