guix-config

guix system configuration/declaration
git clone git://git.eonn.xyz/guix-config.git
Log | Files | Refs | LICENSE

commit 404f539413abaead5f0d14450714846b14dbada8
parent dcd56f844da9309b7d9dea966728498b749ed6af
Author: iressa <ian@eonn.xyz>
Date:   Wed,  2 Feb 2022 22:47:07 -0500

Adding virtualization packages and enabling support on cocles, plus adding sysctl config / changing polkit service

Diffstat:
Mmodules/eonn/guix/packages.scm | 11++++++++++-
Msystem/cocles.scm | 25++++++++++++++++++++-----
2 files changed, 30 insertions(+), 6 deletions(-)

diff --git a/modules/eonn/guix/packages.scm b/modules/eonn/guix/packages.scm @@ -11,7 +11,8 @@ emacs-packages clisp-packages python-packages - games-packages)) + games-packages + virtualization-packages)) (define build-common-packages (map specification->package @@ -139,3 +140,11 @@ '("0ad" "supertuxkart" ;; :^) "xonotic"))) + +(define virtualization-packages + (map specification->package + '("qemu" + "virt-manager" + "virt-viewer" + "libvirt" + "libvirt-glib"))) diff --git a/system/cocles.scm b/system/cocles.scm @@ -1,8 +1,10 @@ (use-modules (gnu) + (gnu services sysctl) (gnu services networking) (gnu services dbus) (gnu services desktop) + (gnu services virtualization) (nongnu packages linux) (nongnu system linux-initrd) (eonn guix packages) @@ -14,15 +16,26 @@ (cons* (service network-manager-service-type) (service wpa-supplicant-service-type) - (service polkit-service-type) + (polkit-service) (dbus-service) (service elogind-service-type) (udisks-service) + (service libvirt-service-type + (libvirt-configuration + (unix-sock-group "libvirt") + (tls-port "16555"))) + (service virtlog-service-type + (virtlog-configuration + (max-clients 1000))) (modify-services %base-services + (sysctl-service-type config => + (sysctl-configuration + (settings (append '(("kernel.dmesg_restrict" . "0")) + %default-sysctl-settings)))) (login-service-type config => - (login-configuration - (inherit config) - (motd (plain-file "motd" "\ + (login-configuration + (inherit config) + (motd (plain-file "motd" "\ Hot chicken hot chicken, what combo you pickin?\n\n"))))))) (define %my-packages @@ -33,6 +46,7 @@ font-packages desktop-packages tools-packages + virtualization-packages (map specification->package '("xf86-video-ati")))) %base-packages)) @@ -78,7 +92,8 @@ (name "ian") (group "users") (supplementary-groups '("wheel" "netdev" - "audio" "video"))) + "audio" "video" + "libvirt" "kvm"))) %base-user-accounts)) (packages %my-packages)