about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/screen-brightness.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-09-01T12·44+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-09-01T13·00+0100
commit718899c629bb1b8bd05285c2e8c5a1709e8e5226 (patch)
treebd360e7b7779e8d8f05df3eb1059887ede6ed8c7 /emacs/.emacs.d/wpc/screen-brightness.el
parent3b2fffe954e3927673e403ee124a78f78bb1c45c (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.el17
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)