OVMFFFFFFFF

This commit is contained in:
Freya Murphy 2023-09-06 12:02:40 -04:00
parent f47cd8ed0b
commit dbbd9fa1de
No known key found for this signature in database
GPG key ID: 988032A5638EE799
3 changed files with 136 additions and 97 deletions

View file

@ -9,6 +9,7 @@
(gnu packages vim)
(gnu packages gcc)
(gnu packages gnupg)
(gnu packages virtualization)
(gnu services)
(guix packages)
(guix gexp)
@ -71,6 +72,7 @@
"netcat"
"ripgrep"
"fd"
"nasm"
"node"
"tree-sitter-cli"
"python-pynvim"))

View file

@ -7,13 +7,11 @@
#:use-module (gnu packages)
#:use-module (guix packages)
#:use-module (gnu packages shells)
#:use-module (guix build-system trivial)
#:use-module (guix licenses)
#:use-module (gnu packages tls)
#:use-module (srfi srfi-1)
#:use-module (home-packages wm)
#:use-module (gnu packages security-token)
#:use-module (gnu services security-token)
#:use-module (gnu packages virtualization)
#:use-module (gnu services cups)
#:use-module (gnu services desktop)
#:use-module (gnu services networking)
@ -24,7 +22,9 @@
#:use-module (gnu services docker)
#:use-module (gnu services avahi)
#:use-module (gnu services authentication)
#:use-module (gnu services virtualization))
#:use-module (gnu services virtualization)
#:use-module (home-packages wm)
#:use-module (home-services virtualization))
(define %my-base-packages
(remove (lambda (package)
@ -67,14 +67,16 @@
"intel-microcode"
"alsa-utils"
"swayidle"
;"swaylock"
"dconf"
"alacritty"
"gnome-themes-extra"
"adwaita-icon-theme"
"hicolor-icon-theme"
"git"
"nss-certs"
"gvfs"
"gnupg"
"virt-manager"
"light"
"waybar"
"avahi"
@ -96,7 +98,6 @@
"xorg-server-xwayland"
"fprintd"
"wireplumber"
"virt-manager"
"wireshark"
"zsh"
"neovim"))
@ -122,9 +123,7 @@
(publish-workstation? #f))) ; do not advertise, I want this to be as silent as possible
(service docker-service-type)
(service nix-service-type)
(service libvirt-service-type
(libvirt-configuration
(unix-sock-group "libvirt")))
(service my-libvirt-service-type)
(service virtlog-service-type)
(service bluetooth-service-type)
(service pam-limits-service-type)

View file

@ -0,0 +1,38 @@
(define-module (home-services virtualization)
#:use-module (guix packages)
#:use-module (gnu packages)
#:use-module (gnu packages virtualization)
#:use-module (gnu packages firmware)
#:use-module (gnu services)
#:use-module (gnu services configuration)
#:use-module (gnu services virtualization)
#:use-module (gnu home services)
#:use-module (guix gexp))
(define my-libvirt
(package
(inherit libvirt)
(inputs
(modify-inputs (package-inputs libvirt)
(append ovmf)))))
(define (ovmf-special-files config)
`(("/usr/share/OVMF/OVMF_CODE.fd",
(file-append ovmf "/share/firmware/ovmf_x64.bin"))))
(define-public my-libvirt-service-type
(service-type
(name 'my-libvirt)
(extensions
(list
(service-extension libvirt-service-type
(lambda (config)
(libvirt-configuration
(libvirt my-libvirt)
(unix-sock-group "libvirt")))
)
(service-extension special-files-service-type
ovmf-special-files)
))
(default-value #f)
(description "Libvirt with OVMF")))