x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed some minor bugs in backlight and added ability to use CLI utils

Browse source
This commit is contained in:
David B 2023-04-04 21:36:06 -04:00
parent f5af33375a
commit 36daccd715
1 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
util/stump-backlight/backlight.lisp
View file

@ -1,31 +1,50 @@
(in-package #:stump-backlight)
(defvar *scale* 10
"The backlight scale. Increase if you want more granularity.")
(defvar *default-percent* 50
"Default value for an output's percentage.")
(defvar *use-clx-randr* t
"Use CLX's randr extension. If not, call shell command set by `*cli-format-str*'")
(defvar *cli-format-str* "brightnessctl s ~a%"
"Format string that when passed an output percentage, sets the brightness.")
(defvar *current-percent* (make-hash-table)
"CLX does not let us query the existing backlight, so we need to keep track of
it manually.")
;; This just returns a random slot to hold in the hash table... It
;; doesn't return the actual output percentage.
(defun current-output ()
(xlib:rr-get-output-primary (stumpwm:window-xwin (stumpwm:current-window))))
(xlib:rr-get-output-primary (stumpwm:screen-root (stumpwm:current-screen))))
(defun cli-update (output)
(stumpwm:dformat 5 (format nil *cli-format-str* output))
(stumpwm:run-shell-command (format nil *cli-format-str* output)))
(stumpwm:defcommand backlight-increase () ()
(let* ((output (current-output))
(current-percent (or (gethash output *current-percent*) *default-percent*)))
(when (< current-percent 100)
(setf (gethash output *current-percent*) (* (1+ (/ current-percent *scale*)) *scale*))
(update output))))
(if *use-clx-randr*
(update output)
(cli-update (gethash output *current-percent*))))))
(stumpwm:defcommand backlight-decrease () ()
(let* ((output (current-output))
(current-percent (or (gethash output *current-percent*) *default-percent*)))
(when (> current-percent 0)
(setf (gethash output *current-percent*) (* (1- (/ current-percent *scale*)) *scale*))
(update output))))
(if *use-clx-randr*
(update output)
(cli-update (gethash output *current-percent*))))))
(defun update (output)
(let ((backlight-limits