diff options
| author | lucas <lucas> | 2006-06-30 22:08:00 +0000 |
|---|---|---|
| committer | lucas <mwolson@gnu.org> | 2006-06-30 22:08:00 +0000 |
| commit | 6dfa85c0487668269d9f08543483aa1d4f4258ff (patch) | |
| tree | f618feb0b9863784c2901e3a9b8abeda537c9c89 | |
| parent | 68bf7c8740c1c8371b71a613b57d00bc6a114f00 (diff) | |
browser: bind 'C' to clear the playlist from the browser window.
darcs-hash:20060630220804-4f952-d803c7f547027551362a1a8de638d4e3ccc4bb3e.gz
| -rw-r--r-- | emms-browser.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/emms-browser.el b/emms-browser.el index f153873..76d4e58 100644 --- a/emms-browser.el +++ b/emms-browser.el @@ -185,6 +185,7 @@ Use nil for no sorting." (define-key map (kbd "q") 'emms-browser-bury-buffer) (define-key map (kbd "/") 'emms-isearch-buffer) (define-key map (kbd "r") 'emms-browser-goto-random) + (define-key map (kbd "C") 'emms-browser-clear-playlist) (define-key map (kbd "?") 'describe-mode) (define-key map (kbd "C-/") 'emms-playlist-mode-undo) (define-key map (kbd "SPC") 'emms-browser-toggle-subitems) @@ -1025,6 +1026,11 @@ After expanding, jump to the currently marked entry." (emms-browser-view-in-dired (car (emms-browser-bdata-data bdata)))) (emms-browser-view-in-dired (emms-browser-bdata-at-point)))) +(defun emms-browser-clear-playlist () + (interactive) + (with-current-emms-playlist + (emms-playlist-clear))) + ;; -------------------------------------------------- ;; Linked browser and playlist windows ;; -------------------------------------------------- |