summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-04-12 13:16:15 -0500
committerCase Duckworth2022-04-12 13:16:15 -0500
commit9ed685f740eeae6076852e29ef8ea346dac9b373 (patch)
treed63f8be81cf25224373042e05af300b86c4a819a
parentAdd +crux-kill-and-join-forward (diff)
downloademacs-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.el5
-rw-r--r--lisp/+dired.el11
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