From 43ea80ea908a4c7070e09f70d4fc63acd34cdace Mon Sep 17 00:00:00 2001
From: Ryan Schanzenbacher <ryan@rschanz.org>
Date: Thu, 7 Sep 2023 14:45:05 -0400
Subject: libvirt pain

---
 modules/ryan-packages/virtualization.scm | 49 ++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 modules/ryan-packages/virtualization.scm

(limited to 'modules/ryan-packages/virtualization.scm')

diff --git a/modules/ryan-packages/virtualization.scm b/modules/ryan-packages/virtualization.scm
new file mode 100644
index 0000000..d43a337
--- /dev/null
+++ b/modules/ryan-packages/virtualization.scm
@@ -0,0 +1,49 @@
+;;; Stolen from https://g.tylerm.dev/tylerm/dotfiles/raw/branch/main/modules/home-packages/virtualization.scm
+
+(define-module (ryan-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)
+               #: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
+  (package
+    (inherit libvirt)
+    (name "libvirt-new")
+    (inputs
+      (modify-inputs (package-inputs libvirt)
+                     (append ovmf-new)))))
+
+(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))))))))))
-- 
cgit v1.2.3