mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support prelude/start-process

Browse source 
If you refer to the previous commit where I change shell-command usages to
start-process function calls, you'll see the rationale for why I prefer
start-process.

This commit introduces a more ergonomic API for start-process that fits most of
my current use-cases of it. This cleans up the code. I have introduced a bug in
the way that I'm tokenizing the COMMAND value. I've tracked that with a
TODO. For now it only affects the `xmodmap -e '<command-string>'` calls, which
isn't too disruptive.
This commit is contained in:
William Carroll 2019-12-23 17:31:42 +00:00
parent c078f04526
commit 5785a5d126
8 changed files with 93 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

24
configs/shared/.emacs.d/wpc/screen-brightness.el
View file

@ -8,6 +8,12 @@
;; TODO: Define some isomorphisms. E.g. int->string, string->int.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'prelude)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Constants
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -25,23 +31,17 @@
(defun screen-brightness/increase ()
"Increase the screen brightness."
(interactive)
(start-process
"*xbacklight<screen-brightness/increase>*"
nil
"xbacklight"
"-inc"
(int-to-string screen-brightness/step-size))
(prelude/start-process
: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 ()
"Decrease the screen brightness."
(interactive)
(start-process
"*xbacklight<screen-brightness/decrease>*"
nil
"xbacklight"
"-dec"
(int-to-string screen-brightness/step-size))
(prelude/start-process
:name "screen-brightness/decrease"
:command (string/format "xbacklight -dec %s" screen-brightness/step-size))
(message "[screen-brightness.el] Decreased screen brightness."))
(when screen-brightness/install-kbds?