From c27c7d5386b179c81192b4dc12e934976ed6ca7d Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Tue, 4 Jul 2023 18:49:48 +0200
Subject: Manually set backlight through /sys

This should avoid xbacklight's XRandR errors on boot.
---
 tw/system/lap.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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

diff --git a/tw/system/lap.scm b/tw/system/lap.scm
index f17777ee..eb4b7006 100644
--- a/tw/system/lap.scm
+++ b/tw/system/lap.scm
@@ -375,7 +375,15 @@ support extra features (acr, pmu, gr).")
           (provision '(backlight))
           (one-shot? #t)
           (start #~(make-forkexec-constructor
-                    (list #$(file-append xbacklight "/bin/xbacklight") "-set" "100"))))))
+                    (list #$(program-file "backlight-setter"
+                              #~(begin
+                                  (use-modules ((ice-9 textual-ports) #:select (get-string-all))
+                                               ((srfi srfi-26) #:select (cut)))
+                                  (define max-brightness
+                                    (call-with-input-file "/sys/class/backlight/intel_backlight/max_brightness"
+                                      get-string-all))
+                                  (call-with-output-file "/sys/class/backlight/intel_backlight/brightness"
+                                    (cut display max-brightness <>))))))))))
 
       (extra-special-file "/etc/guix/machines.scm"
         (scheme-file "machines.scm"
-- 
cgit v1.2.3