diff options
Diffstat (limited to 'tw/system/lap.scm')
-rw-r--r-- | tw/system/lap.scm | 10 |
1 files changed, 9 insertions, 1 deletions
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" |