diff options
| -rw-r--r-- | emms-metaplaylist-mode.el | 9 |
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 ;;; -------------------------------------------------------- |