ryan77627/guix-dotfiles
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Activity

libvirt works libvirt works libvirt works

Browse source
This commit is contained in:
Ryan Schanzenbacher 2023-09-07 16:29:27 -04:00
parent 43ea80ea90
commit c8b287a7c7
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E
2 changed files with 28 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
modules/ryan-config/base-system.scm
View file

@ -170,7 +170,7 @@
(service nix-service-type)
(service libvirt-service-type
(libvirt-configuration
(libvirt libvirt-new)
(libvirt libvirt-ovmf)
(unix-sock-group "libvirt")))
(service virtlog-service-type)
(service bluetooth-service-type)

58
modules/ryan-packages/virtualization.scm
View file

@ -10,40 +10,36 @@
#:use-module (gnu packages firmware)
#:use-module (guix gexp))
(define ovmf-new
(package
(inherit ovmf)
(name "ovmf-new")
(arguments
(substitute-keyword-arguments (package-arguments ovmf)
((#:phases phases)
#~(modify-phases #$phases
(replace 'install
(lambda _
(let ((fmw (string-append #$output "/share/firmware")))
(mkdir-p fmw)
(copy-recursively "Build/OvmfX64/RELEASE_GCC49/FV" fmw))))))))))
(define-public libvirt-new
(define-public libvirt-ovmf
(package
(inherit libvirt)
(name "libvirt-new")
(name "libvirt-ovmf")
(inputs
(modify-inputs (package-inputs libvirt)
(append ovmf-new)))))
(append qemu)))
(arguments
(substitute-keyword-arguments (package-arguments libvirt)
((#:phases phases)
#~(modify-phases #$phases
(add-after 'install 'install-firmware
(lambda _
(let ((fmw (string-append #$output "/share/qemu")))
(mkdir-p fmw)
(copy-recursively #$(file-append qemu "/share/qemu") fmw))))))))))
(define-public virt-manager-ovmf
(package
(inherit virt-manager)
(name "virt-manager-ovmf")
(arguments
(substitute-keyword-arguments (package-arguments virt-manager)
((#:phases phases)
#~(modify-phases #$phases
(add-after 'install 'ovmf
(lambda _
(let ((fmw (string-append #$output "/usr/share/OVMF")))
(mkdir-p fmw)
(copy-recursively #$(file-append ovmf-new "/share/firmware") fmw)
;(mkdir-p fmw)
(copy-recursively "Build/OvmfX64/RELEASE_GCC49/FV" fmw))))))))))
(package
(inherit virt-manager)
(name "virt-manager-ovmf")
(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-firmware
(lambda _
(let ((fmw (string-append #$output "/share/qemu")))
(mkdir-p fmw)
(copy-recursively #$(file-append qemu "/share/firmware") fmw))))))))))