diff options
Diffstat (limited to 'modules/freya/packages/virtualization.scm')
| -rw-r--r-- | modules/freya/packages/virtualization.scm | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/modules/freya/packages/virtualization.scm b/modules/freya/packages/virtualization.scm new file mode 100644 index 0000000..8f92915 --- /dev/null +++ b/modules/freya/packages/virtualization.scm @@ -0,0 +1,47 @@ +(define-module (freya packages virtualization) + #:use-module (gnu packages) + #:use-module (gnu packages package-management) + #:use-module (gnu packages build-tools) + #:use-module (gnu packages virtualization) + #:use-module (gnu packages firmware) + #:use-module (guix packages) + #:use-module (guix utils) + #:use-module (guix gexp)) + +(define-public libvirt-new + (package + (inherit libvirt) + (name "libvirt-new") + (inputs + (modify-inputs (package-inputs libvirt) + (append qemu))) + (arguments + (substitute-keyword-arguments (package-arguments 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-new + (package + (inherit virt-manager) + (name "virt-manager-new") + (inputs + (modify-inputs (package-inputs virt-manager) + (append qemu))) + (arguments + (substitute-keyword-arguments (package-arguments 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)) + )) + )))))) |