Browse Source

Implement recently dired

master
10sr 5 years ago
parent
commit
1a8a70ea11
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 11 additions and 2 deletions
  1. +11
    -2
      emacs.el

+ 11
- 2
emacs.el View File

@@ -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)


Loading…
Cancel
Save