add virtualization.scm
This commit is contained in:
parent
0723434d08
commit
7aae9b41cf
47
packages/virtualization.scm
Normal file
47
packages/virtualization.scm
Normal file
|
@ -0,0 +1,47 @@
|
|||
(define-module (packages virtualization)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages package-management)
|
||||
#:use-module (gnu packages build-tools)
|
||||
#:use-module ((gnu packages virtualization) #:prefix virt:)
|
||||
#:use-module (gnu packages firmware)
|
||||
#:use-module (guix gexp))
|
||||
|
||||
(define-public libvirt
|
||||
(package
|
||||
(inherit virt:libvirt)
|
||||
(name "libvirt")
|
||||
(inputs
|
||||
(modify-inputs (package-inputs virt:libvirt)
|
||||
(append qemu)))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments virt:libvirt)
|
||||
((#:phases phases)
|
||||
#~(modify-phases #$phases
|
||||
(add-after 'install 'install-uefi
|
||||
(lambda _
|
||||
(let ((fmw (string-append #$output "/share/qemu")))
|
||||
(mkdir-p fmw)
|
||||
(copy-recursively #$(file-append qemu "/share/qemu") fmw))
|
||||
))
|
||||
))))))
|
||||
|
||||
(define-public virt-manager
|
||||
(package
|
||||
(inherit virt:virt-manager)
|
||||
(name "virt-manager")
|
||||
(inputs
|
||||
(modify-inputs (package-inputs virt:virt-manager)
|
||||
(append qemu)))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments virt:virt-manager)
|
||||
((#:phases phases)
|
||||
#~(modify-phases #$phases
|
||||
(add-after 'install 'install-uefi
|
||||
(lambda _
|
||||
(let ((fmw (string-append #$output "/share/qemu")))
|
||||
(mkdir-p fmw)
|
||||
(copy-recursively #$(file-append qemu "/share/firmware") fmw))
|
||||
))
|
||||
))))))
|
Loading…
Reference in a new issue