diff options
author | William Carroll <wpcarro@gmail.com> | 2020-01-30T16·00+0000 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-01-30T16·00+0000 |
commit | 578ed1ba98510058cf48f897a9bf4e3391684120 (patch) | |
tree | 5eadabd3d232151c75ac2424eaa8771ab25e927e /configs/shared/.emacs.d/wpc/pulse-audio.el | |
parent | 3684adf23f847114e1beeaab162398628ba571aa (diff) |
Move move .emacs.d out of configs/shared
Moving all of my Emacs-related files into their own directory at the root of this repository.
Diffstat (limited to 'configs/shared/.emacs.d/wpc/pulse-audio.el')
-rw-r--r-- | configs/shared/.emacs.d/wpc/pulse-audio.el | 66 |
1 files changed, 0 insertions, 66 deletions
diff --git a/configs/shared/.emacs.d/wpc/pulse-audio.el b/configs/shared/.emacs.d/wpc/pulse-audio.el deleted file mode 100644 index dba4151a9e3d..000000000000 --- a/configs/shared/.emacs.d/wpc/pulse-audio.el +++ /dev/null @@ -1,66 +0,0 @@ -;;; pulse-audio.el --- Control audio with Elisp -*- lexical-binding: t -*- -;; Author: William Carroll <wpcarro@gmail.com> - -;;; Commentary: -;; Because everything in my configuration is turning into Elisp these days. - -;;; Code: - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Dependencies -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(require 'prelude) -(require 'string) - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Constants -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defconst pulse-audio/step-size 5 - "The size by which to increase or decrease the volume.") - -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Library -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(defun pulse-audio/message (x) - "Output X to *Messages*." - (message (string/format "[pulse-audio.el] %s" x))) - -(defun pulse-audio/toggle-mute () - "Mute the default sink." - (interactive) - (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) - (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) - (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) - (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.")) - -(provide 'pulse-audio) -;;; pulse-audio.el ends here |