From 718899c629bb1b8bd05285c2e8c5a1709e8e5226 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Tue, 1 Sep 2020 13:44:18 +0100 Subject: 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. --- emacs/.emacs.d/wpc/screen-brightness.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) (limited to 'emacs/.emacs.d/wpc/screen-brightness.el') 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 +;; 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) -- cgit 1.4.1