aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoryonirabkin <yonirabkin>2005-09-17 11:53:00 +0000
committeryonirabkin <mwolson@gnu.org>2005-09-17 11:53:00 +0000
commitb1f7743701939aab80caa3112060c515c30dc387 (patch)
tree46ba96ca5096b9256e6e541a12ec4ad053f7c300
parent82a67e810ab0037f3ec4cf9e4b4825c9b924b752 (diff)
clean-up and emms-playlist-mode-center-current
darcs-hash:20050917115359-be80e-6795d7ec60ac1d8d4fbae659b244044bd4475a75.gz
-rw-r--r--emms-playlist-mode.el28
1 files changed, 5 insertions, 23 deletions
diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el
index e3536a4..44bd276 100644
--- a/emms-playlist-mode.el
+++ b/emms-playlist-mode.el
@@ -86,6 +86,7 @@
(define-key emms-playlist-mode-map (kbd "d") 'emms-playlist-mode-kill-track)
(define-key emms-playlist-mode-map (kbd "s") 'emms-stop)
(define-key emms-playlist-mode-map (kbd "f") 'emms-show)
+ (define-key emms-playlist-mode-map (kbd "c") 'emms-playlist-mode-center-current)
(define-key emms-playlist-mode-map (kbd "RET") 'emms-playlist-mode-play-current-track)
(define-key emms-playlist-mode-map (kbd "q") 'bury-buffer)
(define-key emms-playlist-mode-map (kbd "<mouse-2>") 'emms-playlist-mode-play-current-track)
@@ -118,29 +119,10 @@
(emms-playlist-mode-move-wrapper emms-playlist-mode-select-previous
emms-playlist-previous)
-;; (emms-playlist-mode-move-wrapper emms-playlist-mode-select-random
-;; emms-playlist-select-random)
-
-;; (defun emms-playlist-mode-play-random ()
-;; (interactive)
-;; (emms-stop)
-;; (emms-playlist-mode-select-random)
-;; (emms-start))
-
-;; (defun emms-playlist-mode-show-current-track ()
-;; (interactive)
-;; (emms-ensure-player-playing-p)
-;; (message "%s %s"
-;; emms-playlist-mode-prepend-show-string
-;; (emms-track-description
-;; (emms-playlist-selected-track))))
-
-;; (defun emms-playlist-mode-show-current-track-clean ()
-;; (interactive)
-;; (emms-ensure-player-playing-p)
-;; (message "%s"
-;; (emms-track-description
-;; (emms-playlist-selected-track))))
+(defun emms-playlist-mode-center-current ()
+ (interactive)
+ (goto-char (or emms-playlist-mode-selected-overlay-marker
+ (point-min))))
(defun emms-playlist-mode-selected-at ()
(eq (emms-playlist-track-at)