summaryrefslogtreecommitdiff
path: root/dom0/system-laptop.scm
diff options
context:
space:
mode:
Diffstat (limited to 'dom0/system-laptop.scm')
-rw-r--r--dom0/system-laptop.scm29
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