Selaa lähdekoodia

Implement recently dired

master
10sr 6 vuotta sitten
vanhempi
commit
1a8a70ea11
Allekirjoittanut: 10sr GPG Key ID: 7BEC428194130EB2
1 muutettua tiedostoa jossa 11 lisäystä ja 2 poistoa
  1. +11
    -2
      emacs.el

+ 11
- 2
emacs.el Näytä tiedosto

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


Ladataan…
Peruuta
Tallenna