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

OVMFFFFFFFF

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
home-config/home-configuration.scm
View file

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

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

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

38
modules/home-services/virtualization.scm Normal file
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")))