From d555a9c6bb8f224ac32f3d26c482fa78d3891511 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Tue, 26 Nov 2024 11:05:50 +0200
Subject: .

---
 os/config.scm | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

(limited to 'os/config.scm')

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.
-- 
cgit v1.2.3