maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Reduce latency of screen-brightness/{increase,decrease}

Browse source 
As promised in the previous commit, I'm refactoring usages of `shell-command` to
prefer the faster alternative `start-process`. So far, I'm pleased with the
results.
This commit is contained in:
William Carroll 2019-12-23 11:43:27 +00:00
parent 5fbe860b95
commit 7ec4dca723
1 changed files with 12 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -8,13 +8,6 @@
;; TODO: Define some isomorphisms. E.g. int->string, string->int. ;; TODO: Define some isomorphisms. E.g. int->string, string->int.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'string)
(require 'dash)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Constants ;; Constants
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -32,19 +25,23 @@
(defun screen-brightness/increase () (defun screen-brightness/increase ()
"Increase the screen brightness." "Increase the screen brightness."
(interactive) (interactive)
(->> screen-brightness/step-size (start-process
int-to-string "*xbacklight<screen-brightness/increase>*"
(string/concat "xbacklight -inc ") nil
shell-command) "xbacklight"
"-inc"
(int-to-string screen-brightness/step-size))
(message "[screen-brightness.el] Increased screen brightness.")) (message "[screen-brightness.el] Increased screen brightness."))
(defun screen-brightness/decrease () (defun screen-brightness/decrease ()
"Decrease the screen brightness." "Decrease the screen brightness."
(interactive) (interactive)
(->> screen-brightness/step-size (start-process
int-to-string "*xbacklight<screen-brightness/decrease>*"
(string/concat "xbacklight -dec ") nil
shell-command) "xbacklight"
"-dec"
(int-to-string screen-brightness/step-size))
(message "[screen-brightness.el] Decreased screen brightness.")) (message "[screen-brightness.el] Decreased screen brightness."))
(when screen-brightness/install-kbds? (when screen-brightness/install-kbds?