diff options
| author | Tyler Murphy <tylerm@tylerm.dev> | 2023-09-07 15:20:42 -0400 |
|---|---|---|
| committer | Tyler Murphy <tylerm@tylerm.dev> | 2023-09-07 15:20:42 -0400 |
| commit | 2396b0aeb65c90637af264d4ad859ad878e0aaeb (patch) | |
| tree | 6872347f5224061aab5c74541e025a51698aa376 /modules/home-packages | |
| parent | lalalala (diff) | |
| download | dotfiles-guix-2396b0aeb65c90637af264d4ad859ad878e0aaeb.tar.gz dotfiles-guix-2396b0aeb65c90637af264d4ad859ad878e0aaeb.tar.bz2 dotfiles-guix-2396b0aeb65c90637af264d4ad859ad878e0aaeb.zip | |
GNU/Windows
Diffstat (limited to 'modules/home-packages')
| -rw-r--r-- | modules/home-packages/firmware.scm | 1 | ||||
| -rw-r--r-- | modules/home-packages/virtualization.scm | 85 |
2 files changed, 70 insertions, 16 deletions
diff --git a/modules/home-packages/firmware.scm b/modules/home-packages/firmware.scm index 6e88992..37ae276 100644 --- a/modules/home-packages/firmware.scm +++ b/modules/home-packages/firmware.scm @@ -21,5 +21,6 @@ (let ((fmw (string-append #$output "/share/firmware"))) (mkdir-p fmw) (copy-recursively "Build/OvmfX64/RELEASE_GCC49/FV" fmw) + (copy-file "Build/OvmfX64/RELEASE_GCC49/FV/OVMF.fd" (string-append fmw "/OVMF_CODE.fd")) ))) )))))) diff --git a/modules/home-packages/virtualization.scm b/modules/home-packages/virtualization.scm index 5a7dbe4..64d882d 100644 --- a/modules/home-packages/virtualization.scm +++ b/modules/home-packages/virtualization.scm @@ -12,24 +12,77 @@ (define-public libvirt-new (package (inherit libvirt) + (name "libvirt-new") (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)) + (let ((fmw (string-append #$output "/usr/share/OVMF"))) + (mkdir-p fmw) + (copy-recursively #$(file-append ovmf-new "/share/firmware") fmw)) + )) + )))))) (define-public virt-manager-new - (package - (inherit virt-manager) - (name "virt-manager-new") - (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-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-firmware + (lambda _ + (let ((fmw (string-append #$output "/share/qemu"))) + (mkdir-p fmw) + (copy-recursively #$(file-append qemu "/share/firmware") fmw)) + (let ((fmw (string-append #$output "/usr/share/OVMF"))) + (mkdir-p fmw) + (copy-recursively #$(file-append ovmf-new "/share/firmware") fmw)) + )) )))))) + +;; (define-public libvirt-new +;; (package +;; (inherit libvirt) +;; (inputs +;; (modify-inputs (package-inputs libvirt) +;; (append ovmf-new))) +;; (arguments +;; (substitute-keyword-arguments (package-arguments libvirt) +;; ((#: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)) +;; )) +;; )))))) + +;; (define-public virt-manager-new +;; (package +;; (inherit virt-manager) +;; (name "virt-manager-new") +;; (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) +;; ))) +;; )))))) |