emms-player-mpd: When using the emms-volume interface, allow the user to specify the amount of change in the volume

darcs-hash:20061017220404-1bfb2-816cd9b19dfb4094787434034e46fddce4442831.gz

2 files changed, 18 insertions, 3 deletions

diff --git a/emms-player-mpd.el b/emms-player-mpd.el
index 1c6e3dd..8e28237 100644
--- a/emms-player-mpd.el
+++ b/emms-player-mpd.el
@@ -185,12 +185,20 @@ It should take same arguments as `open-network-stream' does."
                  string)
   :group 'emms-player-mpd)
 
+(defcustom emms-player-mpd-volume-change-amount 5
+  "The amount to use when raising or lowering the volume using the
+emms-volume interface.
+
+This should be a positive integer."
+  :type 'integer
+  :group 'emms-player-mpd)
+
 (defcustom emms-player-mpd-check-interval 1
   "How often to check to see whether MusicPD has advanced to the
 next song.  This may be an integer or a floating point number.
 
 This is used only if `emms-player-mpd-sync-playlist' is non-nil"
-  :type 'integer
+  :type 'number
   :group 'emms-player-mpd)
 
 (defcustom emms-player-mpd-verbose nil
@@ -918,12 +926,12 @@ positive or negative."
 (defun emms-volume-mpd-raise ()
   "Increase the volume."
   (interactive)
-  (emms-volume-mpd-change 5))
+  (emms-volume-mpd-change emms-player-mpd-volume-change-amount))
 
 (defun emms-volume-mpd-lower ()
   "Decrease the volume."
   (interactive)
-  (emms-volume-mpd-change -5))
+  (emms-volume-mpd-change (- 0 emms-player-mpd-volume-change-amount)))
 
 ;;; Now playing
 
diff --git a/emms.texinfo b/emms.texinfo
index d9ff358..db4bd60 100644
--- a/emms.texinfo
+++ b/emms.texinfo
@@ -1653,6 +1653,13 @@ order to prime the cache.
 
 @subsubheading emms-volume.el integration
 
+@defopt emms-player-mpd-volume-change-amount
+The amount to use when raising or lowering the volume using the
+emms-volume interface.
+
+This should be a positive integer.
+@end defopt
+
 @defun emms-volume-mpd-change amount
 Change volume up or down by AMOUNT, depending on whether it is
 positive or negative.