From d04f3bb2df53aca4ad6b83f68758b9d7a937ed6f Mon Sep 17 00:00:00 2001 From: LordMZTE Date: Sun, 19 Nov 2023 11:52:26 +0100 Subject: [PATCH] brightness script: correctly build sysfs path --- scripts/brightness.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scripts/brightness.rkt b/scripts/brightness.rkt index 68ae6aa..4a15092 100755 --- a/scripts/brightness.rkt +++ b/scripts/brightness.rkt @@ -20,9 +20,12 @@ (when (sysfs) (for ([dir (directory-list "/sys/class/backlight")]) (printf "sysfs: ~a\n" dir) - (let* ([max-brightness (string->number (file->string (build-path dir "max_brightness")))] + (let* ([max-brightness (string->number + (string-trim + (file->string + (build-path "/sys/class/backlight" dir "max_brightness"))))] [rel-brightness (exact-round (* brightness (/ max-brightness 100)))] - [brightness-path (build-path dir "brightness")]) + [brightness-path (build-path "/sys/class/backlight" dir "brightness")]) (display-to-file rel-brightness brightness-path #:exists 'truncate)))) (match* ((ddc) (find-executable-path "ddcutil"))