From 5912e1a45d5cdd42632c441dc742588f2c3462c3 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sun, 2 Jul 2023 11:40:48 +0200
Subject: Set backlight on laptop startup

---
 tw/system/lap.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'tw/system/lap.scm')

diff --git a/tw/system/lap.scm b/tw/system/lap.scm
index 0b615b9b..f17777ee 100644
--- a/tw/system/lap.scm
+++ b/tw/system/lap.scm
@@ -25,7 +25,7 @@
                      kerberos linux mtools pulseaudio search shells tls wm xorg)
 
 (use-service-modules admin authentication avahi base cups dbus desktop docker
-                     kerberos linux mcron networking pm syncthing vpn xorg)
+                     kerberos linux mcron networking pm shepherd syncthing vpn xorg)
 
 (define efi-system-partition          ; /dev/nvme0n1p1
   (uuid "E04A-DF05" 'fat))
@@ -368,6 +368,15 @@ support extra features (acr, pmu, gr).")
       (extra-special-file "/etc/NetworkManager/dispatcher.d/09-set-timezone"
         (program-file "set-timezone" set-timezone-script))
 
+      (simple-service 'xbacklight-services shepherd-root-service-type
+        (list
+         (shepherd-service
+          (documentation "Set laptop screen backlight on boot.")
+          (provision '(backlight))
+          (one-shot? #t)
+          (start #~(make-forkexec-constructor
+                    (list #$(file-append xbacklight "/bin/xbacklight") "-set" "100"))))))
+
       (extra-special-file "/etc/guix/machines.scm"
         (scheme-file "machines.scm"
           #~(let ((lud (build-machine
-- 
cgit v1.2.3