From 1c87082648c6d265bddaf160f858f14240db739d Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 31 Aug 2020 14:53:34 +0100 Subject: Lint pulse-audio.el Next commit will contain all of the remaining linting... --- emacs/.emacs.d/wpc/pulse-audio.el | 36 ++++++++++++++++++++---------------- 1 file changed, 20 insertions(+), 16 deletions(-) (limited to 'emacs') 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 +;; 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 -- cgit 1.4.1