32 lines
1 KiB
Scheme
32 lines
1 KiB
Scheme
(define-module (home-services virtualization)
|
|
#:use-module (guix packages)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages virtualization)
|
|
#:use-module (gnu services)
|
|
#:use-module (gnu services configuration)
|
|
#:use-module (gnu services virtualization)
|
|
#:use-module (gnu home services)
|
|
#:use-module (home-packages firmware)
|
|
#:use-module (guix gexp))
|
|
|
|
(define libvirt-new
|
|
(package
|
|
(inherit libvirt)
|
|
(inputs
|
|
(modify-inputs (package-inputs libvirt)
|
|
(append ovmf-new)))))
|
|
|
|
(define-public libvirt-service-type-new
|
|
(service-type
|
|
(name 'libvirt-new)
|
|
(extensions
|
|
(list
|
|
(service-extension libvirt-service-type
|
|
(lambda (config)
|
|
(libvirt-configuration
|
|
(unix-sock-group "libvirt")))
|
|
)
|
|
(default-value #f)
|
|
(description "Libvirt with OVMF")))
|
|
|