aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDamien Elmes <emms@repose.cx>2006-06-30 12:40:00 +0000
committerDamien Elmes <emms@repose.cx>2006-06-30 12:40:00 +0000
commit68bf7c8740c1c8371b71a613b57d00bc6a114f00 (patch)
treed287597aa69ae887f0e9602e5aebd8e0ea068264
parentfe45a4a8a165cb7ce7e1604453408cce873c0e1b (diff)
browser: d for dired (missing half)
darcs-hash:20060630124050-4e3e3-19caf3a3694a8e8cbba8d2a6cfc6ac60f08bc3ca.gz
-rw-r--r--emms-browser.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/emms-browser.el b/emms-browser.el
index 9527246..f153873 100644
--- a/emms-browser.el
+++ b/emms-browser.el
@@ -193,6 +193,7 @@ Use nil for no sorting."
(define-key map (kbd "C-j") 'emms-browser-add-tracks-and-play)
(define-key map (kbd "<tab>") 'emms-browser-next-non-track)
(define-key map (kbd "<backtab>") 'emms-browser-prev-non-track)
+ (define-key map (kbd "d") 'emms-browser-view-in-dired)
(define-key map (kbd "E") 'emms-browser-expand-all)
(define-key map (kbd "1") 'emms-browser-collapse-all)
(define-key map (kbd "2") 'emms-browser-expand-to-level-2)
@@ -1018,8 +1019,10 @@ After expanding, jump to the currently marked entry."
(if bdata
(if (eq (emms-browser-bdata-type bdata) 'info-title)
(let* ((track (car (emms-browser-bdata-data bdata)))
- (path (emms-track-get track 'name))))
- (emms-browser-view-in-dired (emms-browser-bdata-data bdata)))
+ (path (emms-track-get track 'name))
+ (dir (file-name-directory path)))
+ (find-file dir))
+ (emms-browser-view-in-dired (car (emms-browser-bdata-data bdata))))
(emms-browser-view-in-dired (emms-browser-bdata-at-point))))
;; --------------------------------------------------