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 | |
| 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.
| -rw-r--r-- | init.el | 5 | ||||
| -rw-r--r-- | lisp/+dired.el | 11 |
2 files changed, 14 insertions, 2 deletions
| diff --git a/init.el b/init.el index ec82d73..96fa0ac 100644 --- a/init.el +++ b/init.el | |||
| @@ -246,7 +246,7 @@ | |||
| 246 | compilation-scroll-output t)) | 246 | compilation-scroll-output t)) |
| 247 | 247 | ||
| 248 | (setup dired | 248 | (setup dired |
| 249 | (:also-load dired-x) | 249 | (:also-load dired-x +dired) |
| 250 | (:also-straight dired+) | 250 | (:also-straight dired+) |
| 251 | (:option dired-recursive-copies 'always | 251 | (:option dired-recursive-copies 'always |
| 252 | dired-recursive-deletes 'always | 252 | dired-recursive-deletes 'always |
| @@ -266,7 +266,8 @@ | |||
| 266 | shell touch) | 266 | shell touch) |
| 267 | dired-dwim-target t) | 267 | dired-dwim-target t) |
| 268 | (:local-set truncate-lines t) | 268 | (:local-set truncate-lines t) |
| 269 | (:bind "<backspace>" #'dired-up-directory) | 269 | (:bind "<backspace>" #'dired-up-directory |
| 270 | "j" #'+dired-goto-file) | ||
| 270 | (:hook #'dired-hide-details-mode | 271 | (:hook #'dired-hide-details-mode |
| 271 | #'hl-line-mode | 272 | #'hl-line-mode |
| 272 | #'lin-mode) | 273 | #'lin-mode) |
| 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 |