freya/dotfiles-guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fuck libvirt fuck libvirt fuck libvirt fuck libvirt fuck libvirt

Browse source
This commit is contained in:
Freya Murphy 2023-09-06 22:23:01 -04:00
parent 426df5d509
commit f1b0bfd81f
No known key found for this signature in database
GPG key ID: 988032A5638EE799
4 changed files with 58 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
modules/home-config/base-system.scm
View file

@ -24,6 +24,7 @@
#:use-module (gnu services authentication) #:use-module (gnu services authentication)
#:use-module (gnu services virtualization) #:use-module (gnu services virtualization)
#:use-module (home-packages wm) #:use-module (home-packages wm)
#:use-module (home-packages virtualization)
#:use-module (home-services virtualization)) #:use-module (home-services virtualization))
(define %my-base-packages (define %my-base-packages
@ -76,7 +77,7 @@
"nss-certs" "nss-certs"
"gvfs" "gvfs"
"gnupg" "gnupg"
"virt-manager" ;; "virt-manager"
"light" "light"
"waybar" "waybar"
"avahi" "avahi"
@ -100,7 +101,7 @@
"wireshark" "wireshark"
"zsh" "zsh"
"neovim")) "neovim"))
(list swaylock-effects-new) (list swaylock-effects-new virt-manager-new)
%my-base-packages)) %my-base-packages))
;; Below is the list of system services. TO search for available ;; Below is the list of system services. TO search for available

25
modules/home-packages/firmware.scm Normal file
View file

@ -0,0 +1,25 @@
(define-module (home-packages firmware)
#: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-public 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)
)))
))))))

28
modules/home-packages/virtualization.scm Normal file
View file

@ -0,0 +1,28 @@
(define-module (home-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 (home-packages firmware)
#:use-module (guix gexp))
(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)
)))
))))))

12
modules/home-services/virtualization.scm
View file

@ -2,11 +2,11 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
#:use-module (gnu packages firmware)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services configuration) #:use-module (gnu services configuration)
#:use-module (gnu services virtualization) #:use-module (gnu services virtualization)
#:use-module (gnu home services) #:use-module (gnu home services)
#:use-module (home-packages firmware)
#:use-module (guix gexp)) #:use-module (guix gexp))
(define libvirt-new (define libvirt-new
@ -14,11 +14,7 @@
(inherit libvirt) (inherit libvirt)
(inputs (inputs
(modify-inputs (package-inputs libvirt) (modify-inputs (package-inputs libvirt)
(append ovmf))))) (append ovmf-new)))))
(define (ovmf-special-files config)
`(("/usr/share/OVMF/OVMF_CODE.fd",
(file-append ovmf "/share/firmware/ovmf_x64.bin"))))
(define-public libvirt-service-type-new (define-public libvirt-service-type-new
(service-type (service-type
@ -28,12 +24,8 @@
(service-extension libvirt-service-type (service-extension libvirt-service-type
(lambda (config) (lambda (config)
(libvirt-configuration (libvirt-configuration
(libvirt libvirt-new)
(unix-sock-group "libvirt"))) (unix-sock-group "libvirt")))
) )
(service-extension special-files-service-type
ovmf-special-files)
))
(default-value #f) (default-value #f)
(description "Libvirt with OVMF"))) (description "Libvirt with OVMF")))