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

43
configs/shared/.emacs.d/wpc/pulse-audio.el
View file

@ -10,6 +10,7 @@
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'prelude)
(require 'string)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -33,49 +34,35 @@
(defun pulse-audio/toggle-mute ()
"Mute the default sink."
(interactive)
(start-process
"*pactl<pulse-audio/toggle-mute>*"
nil
"pactl"
"set-sink-mute"
"@DEFAULT_SINK@"
"toggle")
(prelude/start-process
:name "pulse-audio/toggle-mute"
:command "pactl set-sink-mute @DEFAULT_SINK@ toggle")
(pulse-audio/message "Mute toggled."))
(defun pulse-audio/toggle-microphone ()
"Mute the default sink."
(interactive)
(start-process
"*pactl<pulse-audio/toggle-mute>*"
nil
"pactl"
"set-source-mute"
"@DEFAULT_SOURCE@"
"toggle")
(prelude/start-process
:name "pulse-audio/toggle-microphone"
:command "pactl set-source-mute @DEFAULT_SOURCE@ toggle")
(pulse-audio/message "Microphone toggled."))
(defun pulse-audio/decrease-volume ()
"Low the volume output of the default sink."
(interactive)
(start-process
"*pactl<pulse-audio/toggle-mute>*"
nil
"pactl"
"set-sink-volume"
"@DEFAULT_SINK@"
(string/format "-%s%%" pulse-audio/step-size))
(prelude/start-process
:name "pulse-audio/decrease-volume"
:command (string/format "pactl set-sink-volume @DEFAULT_SINK@ -%s%%"
pulse-audio/step-size))
(pulse-audio/message "Volume decreased."))
(defun pulse-audio/increase-volume ()
"Raise the volume output of the default sink."
(interactive)
(start-process
"*pactl<pulse-audio/toggle-mute>*"
nil
"pactl"
"set-sink-volume"
"@DEFAULT_SINK@"
(string/format "+%s%%" pulse-audio/step-size))
(prelude/start-process
:name "pulse-audio/increase-volume"
:command (string/format "pactl set-sink-volume @DEFAULT_SINK@ +%s%%"
pulse-audio/step-size))
(pulse-audio/message "Volume increased."))
(when pulse-audio/install-kbds?