From 9ed685f740eeae6076852e29ef8ea346dac9b373 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 12 Apr 2022 13:16:15 -0500
Subject: Add +dired-goto-file

This function fixes dumbness in vertico-directory when jumping directories in
dired.
---
 lisp/+dired.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'lisp')

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 @@
 
 ;;; Code:
 
+(require 'vertico)
 
+(defun +dired-goto-file (file)
+  "ADVICE for `dired-goto-file' to make RET call `vertico-exit'."
+  (interactive                          ; stolen from `dired-goto-file'
+   (prog1
+       (list (dlet ((vertico-map (copy-keymap vertico-map)))
+               (define-key vertico-map (kbd "RET") #'vertico-exit)
+               (expand-file-name (read-file-name "Goto file: "
+                                                 (dired-current-directory)))))
+     (push-mark)))
+  (dired-goto-file file))
 
 (provide '+dired)
 ;;; +dired.el ends here
-- 
cgit 1.4.1-21-gabe81