Browse Source

Add recently-show tabulated functions

master
10sr 6 years ago
parent
commit
9d51325769
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 24 additions and 0 deletions
  1. +24
    -0
      emacs.el

+ 24
- 0
emacs.el View File

@@ -2243,6 +2243,24 @@ use for the buffer. It defaults to \"*recetf-show*\"."
(recently-show-tabulated-mode)
(current-buffer)))))

(defun recently-show-tabulated-find-file ()
"Find-file in `recently-show-tabulated-mode'."
(interactive)
(let ((f (tabulated-list-get-id)))
(when f
(recently-show-tabulated-close)
(find-file 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)
(define-key map "v" 'recently-show-tabulated-view-file)
(define-key map "@" 'recently-show-tabulated-dired)
(define-key map (kbd "C-g") 'recently-show-tabulated-close)
(define-key map "/" 'isearch-forward)
map))

(define-derived-mode recently-show-tabulated-mode tabulated-list-mode "Recently Show"
"Major mode for browsing recently opened files and directories."
(setq tabulated-list-padding 2)
@@ -2284,6 +2302,12 @@ use for the buffer. It defaults to \"*recetf-show*\"."
(kill-buffer (current-buffer))
(set-window-configuration recently-show-window-configuration))

(defun recently-show-tabulated-close ()
"Close recently-show window."
(interactive)
(kill-buffer (current-buffer))
(set-window-configuration recently-show-window-configuration))

(defun recently-show-find-file ()
"Fine file of current line."
(interactive)


Loading…
Cancel
Save