about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/screen-brightness.el
diff options
context:
space:
mode:
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)