emms-playing-time.el: Applied standard customization definitions.

darcs-hash:20050923042230-e8fe6-7aa526aeb68fa6b3bd964dd17cc5d5627c2c6719.gz

1 files changed, 21 insertions, 9 deletions

diff --git a/emms-playing-time.el b/emms-playing-time.el
index dc9fc12..64c9665 100644
--- a/emms-playing-time.el
+++ b/emms-playing-time.el
@@ -39,23 +39,35 @@
 (require 'emms-player-simple)
 
 ;;; Customizations
-(defvar emms-playing-time-display-p t
-  "Whether to display playing time on mode line or not.")
 
-(defvar emms-playing-time-display-short-p nil
-  "Only display elapsed time, don't display total playing time,
-e.g., display 02:37 instead of 02:37/05:49.")
+(defgroup emms-playing-time nil
+  "Playing-time module for EMMS."
+  :group 'emms)
 
-(defvar emms-playing-time-display-format " %s "
-  "String used for displaying playing time on mode-line.")
+(defcustom emms-playing-time-display-p t
+  "If non-nil, will diplay playing-time on mode-line."
+  :type 'boolean
+  :group 'emms-playing-time)
+
+(defcustom emms-playing-time-display-short-p nil
+  "If non-nil, only display elapsed time, don't display total
+playing time. e.g., display 02:37 instead of 02:37/05:49. You
+should enable `emms-playing-time-display-p' first, though."
+  :type 'boolean
+  :group 'emms-playing-time)
+
+(defcustom emms-playing-time-display-format " %s "
+  "Format used for displaying playing time."
+  :type 'string
+  :group 'emms-playing-time)
+
+;;; Emms playing time
 
-;;; Variables
 (defvar emms-playing-time 0
   "How long has EMMS run up to now.")
 
 (defvar emms-playing-time-string "")
 
-;;; Functions
 (defun emms-playing-time-start ()
   "Get ready for display playing time."
   (when emms-playing-time-display-p