diff options
| author | Case Duckworth | 2022-04-12 13:16:15 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-12 13:16:15 -0500 |
| commit | 9ed685f740eeae6076852e29ef8ea346dac9b373 (patch) | |
| tree | d63f8be81cf25224373042e05af300b86c4a819a /lisp | |
| parent | Add +crux-kill-and-join-forward (diff) | |
| download | emacs-9ed685f740eeae6076852e29ef8ea346dac9b373.tar.gz emacs-9ed685f740eeae6076852e29ef8ea346dac9b373.zip | |
Add +dired-goto-file
This function fixes dumbness in vertico-directory when jumping directories in dired.
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 |