guix-config

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

commit b48d6f412a45c6aa3e2e0982b3c0a0c487a0c77a
parent d105ed73823208ce679c42f45cb04f0499160a4d
Author: iressa <ian@eonn.xyz>
Date:   Tue,  1 Mar 2022 02:27:57 -0500

Added backlight udev rule, theme-packages to orb

Diffstat:
Msystem/orb.scm | 27++++++++++++++++++++-------
1 file changed, 20 insertions(+), 7 deletions(-)

diff --git a/system/orb.scm b/system/orb.scm @@ -9,6 +9,14 @@ ;;For concatenate (srfi srfi-1)) +(define %udev-backlight-video-rule + (udev-rule + "90-backlight.rules" + (string-append "ACTION==\"add\", SUBSYSTEM==\"backlight\", " + "RUN+=\"/run/current-system/profile/bin/chgrp video /sys/class/backlight/%k/brightness\"" + "\n" + "RUN+=\"/run/current-system/profile/bin/chmod g+w /sys/class/backlight/%k/brightness\""))) + (define %my-services (cons* (service network-manager-service-type) @@ -17,26 +25,31 @@ (dbus-service) (service elogind-service-type (elogind-configuration - (handle-lid-switch 'hibernate))) + (handle-lid-switch 'hibernate))) (udisks-service) (modify-services %base-services + (udev-service-type config => + (udev-configuration (inherit config) + (rules (cons %udev-backlight-video-rule + (udev-configuration-rules config))))) (sysctl-service-type config => (sysctl-configuration - (settings (append '(("kernel.dmesg_restrict" . "0")) - %default-sysctl-settings)))) + (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 (append (concatenate (list - system-packages + system-packages xorg-packages xorg-misc-packages font-packages desktop-packages + theme-packages tools-packages (map specification->package '("xf86-video-intel"))))