diff options
| author | yonirabkin <yonirabkin> | 2005-09-17 11:53:00 +0000 |
|---|---|---|
| committer | yonirabkin <mwolson@gnu.org> | 2005-09-17 11:53:00 +0000 |
| commit | b1f7743701939aab80caa3112060c515c30dc387 (patch) | |
| tree | 46ba96ca5096b9256e6e541a12ec4ad053f7c300 /emms-playlist-mode.el | |
| parent | 82a67e810ab0037f3ec4cf9e4b4825c9b924b752 (diff) | |
clean-up and emms-playlist-mode-center-current
darcs-hash:20050917115359-be80e-6795d7ec60ac1d8d4fbae659b244044bd4475a75.gz
Diffstat (limited to 'emms-playlist-mode.el')
| -rw-r--r-- | emms-playlist-mode.el | 28 |
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) |