diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+dired.el | 11 |
1 files changed, 11 insertions, 0 deletions
| diff --git a/lisp/+dired.el b/lisp/+dired.el index 7decec1..131d326 100644 --- a/lisp/+dired.el +++ b/lisp/+dired.el | |||
| @@ -2,7 +2,18 @@ | |||
| 2 | 2 | ||
| 3 | ;;; Code: | 3 | ;;; Code: |
| 4 | 4 | ||
| 5 | (require 'vertico) | ||
| 5 | 6 | ||
| 7 | (defun +dired-goto-file (file) | ||
| 8 | "ADVICE for `dired-goto-file' to make RET call `vertico-exit'." | ||
| 9 | (interactive ; stolen from `dired-goto-file' | ||
| 10 | (prog1 | ||
| 11 | (list (dlet ((vertico-map (copy-keymap vertico-map))) | ||
| 12 | (define-key vertico-map (kbd "RET") #'vertico-exit) | ||
| 13 | (expand-file-name (read-file-name "Goto file: " | ||
| 14 | (dired-current-directory))))) | ||
| 15 | (push-mark))) | ||
| 16 | (dired-goto-file file)) | ||
| 6 | 17 | ||
| 7 | (provide '+dired) | 18 | (provide '+dired) |
| 8 | ;;; +dired.el ends here | 19 | ;;; +dired.el ends here |