emms-metaplaylist-mode.el: new function : emms-metaplaylist-set-active to set the active playlist buffer from the metaplaylist menu

darcs-hash:20060420224114-4f952-b6612b4c3c720fb6799f43796603b096ac6ab513.gz

1 files changed, 9 insertions, 0 deletions

diff --git a/emms-metaplaylist-mode.el b/emms-metaplaylist-mode.el
index df7c2b0..c40cae4 100644
--- a/emms-metaplaylist-mode.el
+++ b/emms-metaplaylist-mode.el
@@ -81,6 +81,7 @@
     (define-key map (kbd "RET") 'emms-metaplaylist-mode-goto-current)
     (define-key map (kbd "q") 'kill-this-buffer)
     (define-key map (kbd "?") 'describe-mode)
+    (define-key map (kbd "SPC") 'emms-metaplaylist-set-active)
     map)
   "Keymap for `emms-metaplaylist-mode'.")
 
@@ -151,6 +152,14 @@ to host EMMS tracks."
         (setq emms-playlist-buffer-p t)))
     (message "Buffer created")))
 
+(defun emms-metaplaylist-set-active ()
+  (interactive)
+  (emms-playlist-set-playlist-buffer 
+   (get-buffer (buffer-substring (point-at-bol) (point-at-eol))))
+  (let ((ici (point)))
+    (emms-metaplaylist-mode-go)
+    (goto-char ici)))
+
 ;;; --------------------------------------------------------
 ;;; Mode entry
 ;;; --------------------------------------------------------