diff options
Diffstat (limited to 'lisp/+dired.el')
-rw-r--r-- | lisp/+dired.el | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/lisp/+dired.el b/lisp/+dired.el index 9a2e01a..2e42c19 100644 --- a/lisp/+dired.el +++ b/lisp/+dired.el | |||
@@ -2,18 +2,17 @@ | |||
2 | 2 | ||
3 | ;;; Code: | 3 | ;;; Code: |
4 | 4 | ||
5 | (require 'vertico) | 5 | (with-eval-after-load 'vertico |
6 | 6 | (defun +dired-goto-file (file) | |
7 | (defun +dired-goto-file (file) | 7 | "ADVICE for `dired-goto-file' to make RET call `vertico-exit'." |
8 | "ADVICE for `dired-goto-file' to make RET call `vertico-exit'." | 8 | (interactive ; stolen from `dired-goto-file' |
9 | (interactive ; stolen from `dired-goto-file' | 9 | (prog1 |
10 | (prog1 | 10 | (list (dlet ((vertico-map (copy-keymap vertico-map))) |
11 | (list (dlet ((vertico-map (copy-keymap vertico-map))) | 11 | (define-key vertico-map (kbd "RET") #'vertico-exit) |
12 | (define-key vertico-map (kbd "RET") #'vertico-exit) | 12 | (expand-file-name (read-file-name "Goto file: " |
13 | (expand-file-name (read-file-name "Goto file: " | 13 | (dired-current-directory))))) |
14 | (dired-current-directory))))) | 14 | (push-mark))) |
15 | (push-mark))) | 15 | (dired-goto-file file))) |
16 | (dired-goto-file file)) | ||
17 | 16 | ||
18 | ;;; [[https://www.reddit.com/r/emacs/comments/u2lf9t/weekly_tips_tricks_c_thread/i4n9aoa/?context=3][Dim files in .gitignore]] | 17 | ;;; [[https://www.reddit.com/r/emacs/comments/u2lf9t/weekly_tips_tricks_c_thread/i4n9aoa/?context=3][Dim files in .gitignore]] |
19 | 18 | ||