aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMartin Schoenmakers <aiviru@diamond-age.net>2006-06-01 19:38:00 +0000
committerMartin Schoenmakers <aiviru@diamond-age.net>2006-06-01 19:38:00 +0000
commit1cb8a1f346842a341eb3d336eb9d219bb215f2a3 (patch)
treecf516e089267d31f995bef84d608f83677d9b7b2
parentcff09f0bf5cc55233383a6a8409dd808cd2997f4 (diff)
Put volume options in their own customize group.
Added a separate emms-volume group for customize and put things there instead of in the main thing. darcs-hash:20060601193853-97144-c623003be58dbfc8b5bec359110197e115926c1d.gz
-rw-r--r--emms-volume-amixer.el2
-rw-r--r--emms-volume.el9
2 files changed, 8 insertions, 3 deletions
diff --git a/emms-volume-amixer.el b/emms-volume-amixer.el
index 74856c6..692884f 100644
--- a/emms-volume-amixer.el
+++ b/emms-volume-amixer.el
@@ -43,7 +43,7 @@
:type '(choice (const :tag "Master" "Master")
(const :tag "PCM" "PCM")
(string :tag "Something else: "))
- :group 'emms)
+ :group 'emms-volume)
(defun emms-volume-amixer-sset-master (var)
"Change amixer master volume by VAR."
diff --git a/emms-volume.el b/emms-volume.el
index a4c2efd..4f1b4eb 100644
--- a/emms-volume.el
+++ b/emms-volume.el
@@ -48,6 +48,11 @@
(require 'emms-playlist-mode)
(require 'emms-volume-amixer)
+;; Customize group
+(defgroup emms-volume nil
+ "Volume setting for EMMS."
+ :group 'emms)
+
;; General volume setting related code.
(defcustom emms-volume-raise-function 'emms-volume-amixer-raise
"*The function to use to raise the volume.
@@ -55,7 +60,7 @@ If you have your own functions for changing volume, set this and
`emms-volume-lower-function' accordingly."
:type '(choice (const :tag "Amixer" emms-volume-amixer-raise)
(function :tag "Lisp function"))
- :group 'emms)
+ :group 'emms-volume)
(defcustom emms-volume-lower-function 'emms-volume-amixer-lower
"*The function to use to lower the volume.
@@ -63,7 +68,7 @@ If you have your own functions for changing volume, set this and
`emms-volume-raise-function' accordingly."
:type '(choice (const :tag "Amixer" emms-volume-amixer-lower)
(function :tag "Lisp function"))
- :group 'emms)
+ :group 'emms-volume)
(defun emms-volume-raise ()
"Raise the speaker volume."