summaryrefslogtreecommitdiff
path: root/os/config.scm
diff options
context:
space:
mode:
Diffstat (limited to 'os/config.scm')
-rw-r--r--os/config.scm28
1 files changed, 27 insertions, 1 deletions
diff --git a/os/config.scm b/os/config.scm
index 5a1b295..0f491e6 100644
--- a/os/config.scm
+++ b/os/config.scm
@@ -12,6 +12,8 @@
(use-modules (gnu)
(srfi srfi-1)
(nongnu packages linux)
+ (gnu packages haskell-apps)
+ (caps-brightness)
(nongnu system linux-initrd))
(use-service-modules cups desktop networking ssh xorg nix)
(use-package-modules package-management)
@@ -20,6 +22,22 @@
#~(string-append
font-terminus
"/share/consolefonts/ter-132n"))
+(define %sudoers-specification
+ (plain-file "sudoers" "\
+root ALL=(ALL) ALL
+%wheel ALL=(ALL) ALL
+%wheel ALL=(ALL) NOPASSWD: /run/current-system/profile/bin/cpupower
+%wheel ALL=(ALL) NOPASSWD: /run/current-system/profile/bin/umount
+%wheel ALL=(ALL) NOPASSWD: /run/current-system/profile/bin/caps-brightness
+"))
+
+(use-modules
+ (guix gexp)
+ (guix packages)
+ ;; (guix licenses)
+ (guix build-system trivial)
+ (gnu packages bash))
+
(operating-system
@@ -37,7 +55,7 @@
(comment "Marc")
(group "users")
(home-directory "/home/mccd")
- (supplementary-groups '("wheel" "netdev" "audio" "video")))
+ (supplementary-groups '("wheel" "netdev" "audio" "video" "input")))
%base-user-accounts))
;; Packages installed system-wide. Users can also install packages
@@ -46,6 +64,7 @@
(packages (append (list (specification->package "emacs")
(specification->package "emacs-exwm")
(specification->package "nix")
+ (specification->package "caps-brightness")
(specification->package "xf86-input-libinput")
(specification->package "xf86-video-fbdev")
(specification->package "xf86-video-nouveau")
@@ -91,6 +110,11 @@
'("lobste.rs" "lobste.rs")))))
(modify-services %desktop-services
(delete gdm-service-type)
+ (udev-service-type config =>
+ (udev-configuration
+ (inherit config)
+ (rules (cons kmonad
+ (udev-configuration-rules config)))))
(console-font-service-type
conf =>
(map (lambda (tty)
@@ -113,6 +137,8 @@
(target (uuid
"6ee329b8-9475-4675-9c46-b2f68ec97f08")))))
+ (sudoers-file %sudoers-specification)
+
;; The list of file systems that get "mounted". The unique
;; file system identifiers there ("UUIDs") can be obtained
;; by running 'blkid' in a terminal.