aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emms-volume.el23
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."