From b1f7743701939aab80caa3112060c515c30dc387 Mon Sep 17 00:00:00 2001
From: yonirabkin <yonirabkin>
Date: Sat, 17 Sep 2005 11:53:00 +0000
Subject: clean-up and emms-playlist-mode-center-current

darcs-hash:20050917115359-be80e-6795d7ec60ac1d8d4fbae659b244044bd4475a75.gz
---
 emms-playlist-mode.el | 28 +++++-----------------------
 1 file 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) 
-- 
cgit v1.2.3