From 47830f9d63593cd52f97ebfaf86c630cc0793ad5 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Thu, 16 Dec 2021 10:27:00 -0500 Subject: feat(wpcarro/marcus): Prefer light to xbacklight TL;DR: - Enable light (let there be light!) - Refactor screen-brightness.el TIL: `nixos-options programs.enable.light` outputs docs from the command-line Change-Id: Ib60a9b3c9b7f6f96fda29fce1a97ca9995822048 Reviewed-on: https://cl.tvl.fyi/c/depot/+/4385 Tested-by: BuildkiteCI Reviewed-by: wpcarro --- .../emacs/.emacs.d/wpc/screen-brightness.el | 23 +++++++++++++++------- 1 file changed, 16 insertions(+), 7 deletions(-) (limited to 'users/wpcarro/emacs/.emacs.d/wpc/screen-brightness.el') diff --git a/users/wpcarro/emacs/.emacs.d/wpc/screen-brightness.el b/users/wpcarro/emacs/.emacs.d/wpc/screen-brightness.el index 30973607bb..48aa5d637f 100644 --- a/users/wpcarro/emacs/.emacs.d/wpc/screen-brightness.el +++ b/users/wpcarro/emacs/.emacs.d/wpc/screen-brightness.el @@ -6,12 +6,10 @@ ;; Package-Requires: ((emacs "24")) ;;; Commentary: -;; Mainly just Elisp wrappers around `xbacklight`. +;; Control your laptop's screen brightness. ;;; Code: -;; TODO: Define some isomorphisms. E.g. int->string, string->int. - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Dependencies ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -22,8 +20,19 @@ ;; Constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defconst screen-brightness-step-size 15 - "The size of the increment or decrement step for the screen's brightness.") +(defgroup screen-brightness nil "Configuration for screen-brightness.") + +(defcustom screen-brightness-increase-cmd + "light -A 3" + "The shell command to run to increase screen brightness." + :group 'screen-brightness + :type 'string) + +(defcustom screen-brightness-decrease-cmd + "light -U 3" + "The shell command to run to decrease screen brightness." + :group 'screen-brightness + :type 'string) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Library @@ -34,7 +43,7 @@ (interactive) (prelude-start-process :name "screen-brightness-increase" - :command (string-format "xbacklight -inc %s" screen-brightness-step-size)) + :command screen-brightness-increase-cmd) (message "[screen-brightness.el] Increased screen brightness.")) (defun screen-brightness-decrease () @@ -42,7 +51,7 @@ (interactive) (prelude-start-process :name "screen-brightness-decrease" - :command (string-format "xbacklight -dec %s" screen-brightness-step-size)) + :command screen-brightness-decrease-cmd) (message "[screen-brightness.el] Decreased screen brightness.")) (provide 'screen-brightness) -- cgit 1.4.1