guix-config

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

commit dede4c99ba1466f6c51f2437fd83098444b30529
parent b48d6f412a45c6aa3e2e0982b3c0a0c487a0c77a
Author: iressa <ian@eonn.xyz>
Date:   Tue,  1 Mar 2022 02:29:48 -0500

fixing spaces on orb.scm

Diffstat:
Msystem/orb.scm | 116++++++++++++++++++++++++++++++++++++++++----------------------------------------
1 file changed, 58 insertions(+), 58 deletions(-)

diff --git a/system/orb.scm b/system/orb.scm @@ -1,13 +1,13 @@ (use-modules - (gnu) - (gnu services sysctl) - (gnu services networking) - (gnu services dbus) - (gnu services desktop) - (eonn guix packages) + (gnu) + (gnu services sysctl) + (gnu services networking) + (gnu services dbus) + (gnu services desktop) + (eonn guix packages) - ;;For concatenate - (srfi srfi-1)) + ;;For concatenate + (srfi srfi-1)) (define %udev-backlight-video-rule (udev-rule @@ -19,66 +19,66 @@ (define %my-services (cons* - (service network-manager-service-type) - (service wpa-supplicant-service-type) - (polkit-service) - (dbus-service) - (service elogind-service-type - (elogind-configuration - (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)))) - (login-service-type config => - (login-configuration - (inherit config) - (motd (plain-file "motd" "\ + (service network-manager-service-type) + (service wpa-supplicant-service-type) + (polkit-service) + (dbus-service) + (service elogind-service-type + (elogind-configuration + (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)))) + (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 (append (concatenate (list system-packages - xorg-packages - xorg-misc-packages - font-packages - desktop-packages - theme-packages - tools-packages - (map specification->package - '("xf86-video-intel")))) + xorg-packages + xorg-misc-packages + font-packages + desktop-packages + theme-packages + tools-packages + (map specification->package + '("xf86-video-intel")))) %base-packages)) (operating-system - (host-name "orb") - (timezone "America/New_York") - (locale "en_US.utf8") + (host-name "orb") + (timezone "America/New_York") + (locale "en_US.utf8") - (keyboard-layout (keyboard-layout "us" "colemak")) + (keyboard-layout (keyboard-layout "us" "colemak")) - (bootloader (bootloader-configuration - (bootloader grub-efi-bootloader) - (targets '("boot/")) - (keyboard-layout keyboard-layout))) + (bootloader (bootloader-configuration + (bootloader grub-efi-bootloader) + (targets '("boot/")) + (keyboard-layout keyboard-layout))) - (file-systems (append - (list (file-system - (device (file-system-label "guixfs")) - (mount-point "/") - (type "ext4"))) - %base-file-systems)) + (file-systems (append + (list (file-system + (device (file-system-label "guixfs")) + (mount-point "/") + (type "ext4"))) + %base-file-systems)) - (users (cons (user-account - (name "ian") - (group "users") - (supplementary-groups '("wheel" "netdev" "audio" "video"))) - %base-user-accounts)) + (users (cons (user-account + (name "ian") + (group "users") + (supplementary-groups '("wheel" "netdev" "audio" "video"))) + %base-user-accounts)) - (packages %my-packages) - (services %my-services)) + (packages %my-packages) + (services %my-services))