diff options
Diffstat (limited to 'emacs/.emacs.d/wpc/screen-brightness.el')
-rw-r--r-- | emacs/.emacs.d/wpc/screen-brightness.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/emacs/.emacs.d/wpc/screen-brightness.el b/emacs/.emacs.d/wpc/screen-brightness.el index be2a68e62c9f..30973607bb03 100644 --- a/emacs/.emacs.d/wpc/screen-brightness.el +++ b/emacs/.emacs.d/wpc/screen-brightness.el @@ -1,6 +1,9 @@ ;;; screen-brightness.el --- Control laptop screen brightness -*- lexical-binding: t -*- ;; Author: William Carroll <wpcarro@gmail.com> +;; Version: 0.0.1 +;; URL: https://git.wpcarro.dev/wpcarro/briefcase +;; Package-Requires: ((emacs "24")) ;;; Commentary: ;; Mainly just Elisp wrappers around `xbacklight`. @@ -19,27 +22,27 @@ ;; Constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defconst screen-brightness/step-size 15 +(defconst screen-brightness-step-size 15 "The size of the increment or decrement step for the screen's brightness.") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Library ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun screen-brightness/increase () +(defun screen-brightness-increase () "Increase the screen brightness." (interactive) (prelude-start-process - :name "screen-brightness/increase" - :command (string-format "xbacklight -inc %s" screen-brightness/step-size)) + :name "screen-brightness-increase" + :command (string-format "xbacklight -inc %s" screen-brightness-step-size)) (message "[screen-brightness.el] Increased screen brightness.")) -(defun screen-brightness/decrease () +(defun screen-brightness-decrease () "Decrease the screen brightness." (interactive) (prelude-start-process - :name "screen-brightness/decrease" - :command (string-format "xbacklight -dec %s" screen-brightness/step-size)) + :name "screen-brightness-decrease" + :command (string-format "xbacklight -dec %s" screen-brightness-step-size)) (message "[screen-brightness.el] Decreased screen brightness.")) (provide 'screen-brightness) |