about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--emacs/.emacs.d/wpc/pulse-audio.el36
1 files changed, 20 insertions, 16 deletions
diff --git a/emacs/.emacs.d/wpc/pulse-audio.el b/emacs/.emacs.d/wpc/pulse-audio.el
index dba4151a9e3d..f12e7922a549 100644
--- a/emacs/.emacs.d/wpc/pulse-audio.el
+++ b/emacs/.emacs.d/wpc/pulse-audio.el
@@ -1,5 +1,9 @@
 ;;; pulse-audio.el --- Control audio with Elisp -*- lexical-binding: t -*-
+
 ;; Author: William Carroll <wpcarro@gmail.com>
+;; Version: 0.0.1
+;; Package-Requires: ((emacs "24"))
+;; Homepage: https://user.git.corp.google.com/wpcarro/briefcase
 
 ;;; Commentary:
 ;; Because everything in my configuration is turning into Elisp these days.
@@ -17,50 +21,50 @@
 ;; Constants
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defconst pulse-audio/step-size 5
+(defconst pulse-audio--step-size 5
   "The size by which to increase or decrease the volume.")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Library
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defun pulse-audio/message (x)
+(defun pulse-audio--message (x)
   "Output X to *Messages*."
   (message (string/format "[pulse-audio.el] %s" x)))
 
-(defun pulse-audio/toggle-mute ()
+(defun pulse-audio-toggle-mute ()
   "Mute the default sink."
   (interactive)
   (prelude/start-process
-   :name "pulse-audio/toggle-mute"
+   :name "pulse-audio-toggle-mute"
    :command "pactl set-sink-mute @DEFAULT_SINK@ toggle")
-  (pulse-audio/message "Mute toggled."))
+  (pulse-audio--message "Mute toggled."))
 
-(defun pulse-audio/toggle-microphone ()
+(defun pulse-audio-toggle-microphone ()
   "Mute the default sink."
   (interactive)
   (prelude/start-process
-   :name "pulse-audio/toggle-microphone"
+   :name "pulse-audio-toggle-microphone"
    :command "pactl set-source-mute @DEFAULT_SOURCE@ toggle")
-  (pulse-audio/message "Microphone toggled."))
+  (pulse-audio--message "Microphone toggled."))
 
-(defun pulse-audio/decrease-volume ()
+(defun pulse-audio-decrease-volume ()
   "Low the volume output of the default sink."
   (interactive)
   (prelude/start-process
-   :name "pulse-audio/decrease-volume"
+   :name "pulse-audio-decrease-volume"
    :command (string/format "pactl set-sink-volume @DEFAULT_SINK@ -%s%%"
-                           pulse-audio/step-size))
-  (pulse-audio/message "Volume decreased."))
+                           pulse-audio--step-size))
+  (pulse-audio--message "Volume decreased."))
 
-(defun pulse-audio/increase-volume ()
+(defun pulse-audio-increase-volume ()
   "Raise the volume output of the default sink."
   (interactive)
   (prelude/start-process
-   :name "pulse-audio/increase-volume"
+   :name "pulse-audio-increase-volume"
    :command (string/format "pactl set-sink-volume @DEFAULT_SINK@ +%s%%"
-                           pulse-audio/step-size))
-  (pulse-audio/message "Volume increased."))
+                           pulse-audio--step-size))
+  (pulse-audio--message "Volume increased."))
 
 (provide 'pulse-audio)
 ;;; pulse-audio.el ends here