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.
---
 init.el        |  5 +++--
 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 @@
            compilation-scroll-output t))
 
 (setup dired
-  (:also-load dired-x)
+  (:also-load dired-x +dired)
   (:also-straight dired+)
   (:option dired-recursive-copies 'always
            dired-recursive-deletes 'always
@@ -266,7 +266,8 @@
                               shell touch)
            dired-dwim-target t)
   (:local-set truncate-lines t)
-  (:bind "<backspace>" #'dired-up-directory)
+  (:bind "<backspace>" #'dired-up-directory
+         "j" #'+dired-goto-file)
   (:hook #'dired-hide-details-mode
          #'hl-line-mode
          #'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 @@
 
 ;;; 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