diff options
author | William Carroll <wpcarro@gmail.com> | 2020-09-01T12·44+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-09-01T13·00+0100 |
commit | 718899c629bb1b8bd05285c2e8c5a1709e8e5226 (patch) | |
tree | bd360e7b7779e8d8f05df3eb1059887ede6ed8c7 /emacs/.emacs.d/wpc/screen-brightness.el | |
parent | 3b2fffe954e3927673e403ee124a78f78bb1c45c (diff) |
More Elisp linting
In order for this to scale, I need to solve two things: 1. Ad-hoc ignore fill-column rules for URLs and other exceptions. 2. Run Elisp flychecker without evaluating my Elisp code and firing its side-effects.
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) |