From 47c874cbc0e9582c19d56fa2176bd2a473148765 Mon Sep 17 00:00:00 2001 From: "william.xwl" Date: Wed, 5 Oct 2005 06:48:00 +0000 Subject: emms-playing-time.el: New function: `emms-playing-time-restore-mode-line'. darcs-hash:20051005064846-e8fe6-c4f072868018fe19587c9d264de1d1b4057f85e0.gz --- emms-playing-time.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/emms-playing-time.el b/emms-playing-time.el index b864edf..36090e0 100644 --- a/emms-playing-time.el +++ b/emms-playing-time.el @@ -72,7 +72,6 @@ should enable `emms-playing-time-display-p' first, though." (defun emms-playing-time-start () "Get ready for display playing time." (setq emms-playing-time 0) - (emms-playing-time-mode-line) (run-at-time t 1 'emms-playing-time-display)) (defun emms-playing-time-stop () @@ -100,24 +99,26 @@ should enable `emms-playing-time-display-p' first, though." "Enable displaying emms playing time on mode line." (interactive) (setq emms-playing-time-display-p t) + (emms-playing-time-mode-line) (add-hook 'emms-player-started-hook 'emms-playing-time-start) (add-hook 'emms-player-stopped-hook 'emms-playing-time-stop) (add-hook 'emms-player-finished-hook 'emms-playing-time-stop) (add-hook 'emms-player-paused-hook 'emms-playing-time-pause) (add-hook 'emms-player-seeked-functions 'emms-playing-time-seek) - (message "Displaying emms playing time enabled.")) + (message "emms playing time enabled.")) (defun emms-playing-time-disable () "Disable displaying emms playing time on mode line." (interactive) - (setq emms-playing-time-display-p nil) (emms-playing-time-stop) + (setq emms-playing-time-display-p nil) + (emms-playing-time-restore-mode-line) (remove-hook 'emms-player-started-hook 'emms-playing-time-start) (remove-hook 'emms-player-stopped-hook 'emms-playing-time-stop) (remove-hook 'emms-player-finished-hook 'emms-playing-time-stop) (remove-hook 'emms-player-paused-hook 'emms-playing-time-pause) (remove-hook 'emms-player-seeked-functions 'emms-playing-time-seek) - (message "Displaying emms playing time disabled.")) + (message "emms playing time disabled.")) (defun emms-playing-time-toggle () "Toggle displaying emms playing time on mode line." @@ -161,6 +162,11 @@ should enable `emms-playing-time-display-p' first, though." (append global-mode-string '(emms-playing-time-string))))) +(defun emms-playing-time-restore-mode-line () + "Restore the mode line." + (setq global-mode-string + (remove 'emms-playing-time-string global-mode-string)) + (force-mode-line-update)) (provide 'emms-playing-time) -- cgit v1.2.3