LordMZTE/dotfiles
1
0
Fork 0
mirror of https://mzte.de/git/LordMZTE/dotfiles.git synced 2024-05-18 15:04:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

brightness script: correctly build sysfs path

Browse source
This commit is contained in:
LordMZTE 2023-11-19 11:52:26 +01:00
parent c7a67aeb4c
commit d04f3bb2df
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scripts/brightness.rkt
View file

@ -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"))