diff options
| author | yoni-r <yoni-r> | 2006-06-26 16:04:00 +0000 |
|---|---|---|
| committer | yoni-r <mwolson@gnu.org> | 2006-06-26 16:04:00 +0000 |
| commit | 88f57b8804b6df32844770ece036075e1a1ac64d (patch) | |
| tree | 8dd0320dd0cc82a1744192b46d119a711fe8d418 /emms-playlist-mode.el | |
| parent | 50eebbbff0345d945ac7073273a034d8a3071e0b (diff) | |
emms-playlist-mode-window-width defcustom + emms-playlist-mode-center-when-go
darcs-hash:20060626160415-85c19-b96c96fccb4ef99f70e98f1e83e0a88e4113f41b.gz
Diffstat (limited to 'emms-playlist-mode.el')
| -rw-r--r-- | emms-playlist-mode.el | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el index c955b26..4ed2d89 100644 --- a/emms-playlist-mode.el +++ b/emms-playlist-mode.el @@ -50,9 +50,6 @@ (defvar emms-playlist-mode-switched-buffer nil "Last buffer visited before calling `emms-playlist-mode-switch-buffer'.") -(defvar emms-playlist-mode-window-width -25 - "Width for the emms-playlist-mode pop-up window.") - (make-variable-buffer-local 'emms-playlist-mode-selected-overlay) @@ -68,6 +65,18 @@ composed of other playlists." :type 'boolean :group 'emms-playlist-mode) +(defcustom emms-playlist-mode-window-width 25 + "*Determine the width of the Emms popup window. +The value should a positive integer." + :type 'integer + :group 'emms-playlist-mode) + +(defcustom emms-playlist-mode-center-when-go nil + "*Determine whether to center on the currently selected track. +This is true for every invocation of `emms-playlist-mode-go'." + :type 'boolean + :group 'emms-playlist-mode) + ;;; -------------------------------------------------------- ;;; Faces ;;; -------------------------------------------------------- @@ -406,15 +415,19 @@ When NO-NEWLINE is non-nil, do not insert a newline after the track." (switch-to-buffer emms-playlist-buffer) (when (and (not (eq major-mode 'emms-playlist-mode)) emms-playlist-buffer-p) - (emms-playlist-mode)))) + (emms-playlist-mode)) + (when emms-playlist-mode-center-when-go + (emms-playlist-mode-center-current)))) (defun emms-playlist-mode-go-popup (&optional window-width) - "Popup emms-playlist buffer as a side window. Default value for -WINDOW-WIDTH is `emms-playlist-mode-window-width'." + "Popup emms-playlist buffer as a side window. + +Default value for WINDOW-WIDTH is `emms-playlist-mode-window-width'. +WINDOW-WIDTH should be a positive integer." (interactive) (setq emms-playlist-mode-window-width (or window-width emms-playlist-mode-window-width)) - (split-window-horizontally emms-playlist-mode-window-width) + (split-window-horizontally (- emms-playlist-mode-window-width)) (other-window 1) (emms-playlist-mode-go)) |