diff options
| -rw-r--r-- | emms-volume.el | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/emms-volume.el b/emms-volume.el index bfd2733..a4c2efd 100644 --- a/emms-volume.el +++ b/emms-volume.el @@ -43,20 +43,27 @@ ;;; Code: + +(require 'emms) +(require 'emms-playlist-mode) +(require 'emms-volume-amixer) + ;; General volume setting related code. -(defvar emms-volume-raise-function 'emms-volume-amixer-raise +(defcustom emms-volume-raise-function 'emms-volume-amixer-raise "*The function to use to raise the volume. If you have your own functions for changing volume, set this and - `emms-volume-lower-function' accordingly.") + `emms-volume-lower-function' accordingly." + :type '(choice (const :tag "Amixer" emms-volume-amixer-raise) + (function :tag "Lisp function")) + :group 'emms) -(defvar emms-volume-lower-function 'emms-volume-amixer-lower +(defcustom emms-volume-lower-function 'emms-volume-amixer-lower "*The function to use to lower the volume. If you have your own functions for changing volume, set this and - `emms-volume-raise-function' accordingly.") - -(require 'emms) -(require 'emms-playlist-mode) -(require 'emms-volume-amixer) + `emms-volume-raise-function' accordingly." + :type '(choice (const :tag "Amixer" emms-volume-amixer-lower) + (function :tag "Lisp function")) + :group 'emms) (defun emms-volume-raise () "Raise the speaker volume." |