From 0d9aba2a5168b500a7b9073730d00113411d2f16 Mon Sep 17 00:00:00 2001 From: Michael Olson Date: Fri, 9 Jun 2006 04:36:00 +0000 Subject: emms-player-mpd: Rename volume functions to better match the namespace created by emms-volume.el. darcs-hash:20060609043643-1bfb2-375117b7d9fef9f60119cb64b42095c609448a30.gz --- emms-player-mpd.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) (limited to 'emms-player-mpd.el') diff --git a/emms-player-mpd.el b/emms-player-mpd.el index 1279057..2d568de 100644 --- a/emms-player-mpd.el +++ b/emms-player-mpd.el @@ -943,7 +943,9 @@ from other functions." (interactive) (emms-player-mpd-send "previous" nil #'ignore)) -(defun emms-player-mpd-volume-change (amount) +;;; Volume + +(defun emms-volume-mpd-change (amount) "Change volume up or down by AMOUNT, depending on whether it is positive or negative." (interactive "MVolume change amount (+ increase, - decrease): ") @@ -955,15 +957,17 @@ positive or negative." (concat "setvol \"" (number-to-string new-volume) "\"") nil #'ignore))))) -(defun emms-player-mpd-volume-up () +(defun emms-volume-mpd-raise () "Increase the volume." (interactive) - (emms-player-mpd-volume-change 5)) + (emms-volume-mpd-change 5)) -(defun emms-player-mpd-volume-down () +(defun emms-volume-mpd-lower () "Decrease the volume." (interactive) - (emms-player-mpd-volume-change -5)) + (emms-volume-mpd-change -5)) + +;;; Now playing (defun emms-player-mpd-show-1 (closure response) (let* ((info (emms-player-mpd-get-alist -- cgit v1.2.3