diff options
author | Martin Schoenmakers <aiviru@diamond-age.net> | 2006-06-01 19:38:00 +0000 |
---|---|---|
committer | Martin Schoenmakers <aiviru@diamond-age.net> | 2006-06-01 19:38:00 +0000 |
commit | 1cb8a1f346842a341eb3d336eb9d219bb215f2a3 (patch) | |
tree | cf516e089267d31f995bef84d608f83677d9b7b2 | |
parent | cff09f0bf5cc55233383a6a8409dd808cd2997f4 (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.el | 2 | ||||
-rw-r--r-- | emms-volume.el | 9 |
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." |