From 87199113bdd40ddc4c96e9ef1dba279118b48d90 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 26 Jul 2020 18:40:42 -0400 Subject: [PATCH] SPC f d -> +default/dired +default/dired will prompt you for a directory to open dired in. If passed the universal argument, it will prompt you for a known project instead. --- modules/config/default/+evil-bindings.el | 2 +- modules/config/default/autoload/files.el | 10 ++++++++++ 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/modules/config/default/+evil-bindings.el b/modules/config/default/+evil-bindings.el index cc1db3ff6..619572d27 100644 --- a/modules/config/default/+evil-bindings.el +++ b/modules/config/default/+evil-bindings.el @@ -381,7 +381,7 @@ (:prefix-map ("f" . "file") :desc "Open project editorconfig" "c" #'editorconfig-find-current-editorconfig :desc "Copy this file" "C" #'doom/copy-this-file - :desc "Find directory" "d" #'dired + :desc "Find directory" "d" #'+default/dired :desc "Delete this file" "D" #'doom/delete-this-file :desc "Find file in emacs.d" "e" #'+default/find-in-emacsd :desc "Browse emacs.d" "E" #'+default/browse-emacsd diff --git a/modules/config/default/autoload/files.el b/modules/config/default/autoload/files.el index 1dfecf078..313dafa9b 100644 --- a/modules/config/default/autoload/files.el +++ b/modules/config/default/autoload/files.el @@ -57,3 +57,13 @@ If prefix ARG is non-nil, prompt for the search path." (if projectile-project-search-path (mapc #'projectile-discover-projects-in-directory projectile-project-search-path) (user-error "`projectile-project-search-path' is empty; don't know where to search")))) + +;;;###autoload +(defun +default/dired (arg) + "Open a directory in dired. +If prefix ARG is non-nil, prompt for a known project to open in dired." + (interactive "P") + (dired + (if arg + (completing-read "Open dired in project: " projectile-known-projects) + (dired-read-dir-and-switches ""))))