|
|
|
@@ -2045,13 +2045,22 @@ use for the buffer. It defaults to \"*recetf-show*\"." |
|
|
|
(recently-show-tabulated-close) |
|
|
|
(view-file f)))) |
|
|
|
|
|
|
|
(defun recently-show-tabulated-dired() |
|
|
|
"Open dired buffer of directory at point." |
|
|
|
(interactive) |
|
|
|
(let ((f (tabulated-list-get-id))) |
|
|
|
(when f |
|
|
|
(recently-show-tabulated-close) |
|
|
|
(dired (if (file-directory-p f) |
|
|
|
f |
|
|
|
(or (file-name-directory f) |
|
|
|
".")))))) |
|
|
|
|
|
|
|
(defvar recently-show-tabulated-mode-map |
|
|
|
(let ((map (make-sparse-keymap))) |
|
|
|
(suppress-keymap map) |
|
|
|
(define-key map (kbd "C-m") 'recently-show-tabulated-find-file) |
|
|
|
;; TODO: implement |
|
|
|
(define-key map "v" 'recently-show-tabulated-view-file) |
|
|
|
;; TODO: implement |
|
|
|
(define-key map "@" 'recently-show-tabulated-dired) |
|
|
|
(define-key map (kbd "C-g") 'recently-show-tabulated-close) |
|
|
|
(define-key map "/" 'isearch-forward) |
|
|
|
|
