guix-config

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

commit 3801fd7071b2b9245064d46146ffc71e699c0efa
parent e55bbbebe816e8e7980ec4072255c99ad28d083c
Author: Ian Ressa <ian@eonn.xyz>
Date:   Fri, 19 Aug 2022 16:32:43 -0400

use xfce-service-type and slim-service-type

Diffstat:
Msystem/cocles.scm | 54++++++++++++++++++++++++++++++------------------------
1 file changed, 30 insertions(+), 24 deletions(-)

diff --git a/system/cocles.scm b/system/cocles.scm @@ -5,6 +5,7 @@ (gnu services dbus) (gnu services desktop) (gnu services virtualization) + (gnu services xorg) (gnu packages linux) (nongnu packages linux) (nongnu system linux-initrd) @@ -15,30 +16,35 @@ (define %my-services (cons* - (service network-manager-service-type) - (service wpa-supplicant-service-type) - (polkit-service) - (dbus-service) - (service elogind-service-type) - (udisks-service) - (service special-files-service-type - `(("/lib64/ld-linux-x86-64.so.2" ,(file-append (canonical-package glibc) "/lib/ld-linux-x86-64.so.2")))) - (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" "\ + (service xfce-desktop-service-type) + (service slim-service-type + (slim-configuration + (xorg-configuration (xorg-configuration + (keyboard-layout (keyboard-layout "us" "colemak")))))) + (service network-manager-service-type) + (service wpa-supplicant-service-type) + (polkit-service) + (dbus-service) + (service elogind-service-type) + (udisks-service) + (service special-files-service-type + `(("/lib64/ld-linux-x86-64.so.2" ,(file-append (canonical-package glibc) "/lib/ld-linux-x86-64.so.2")))) + (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" "\ Hot chicken hot chicken, what combo you pickin?\n\n"))))))) (define %my-packages