emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

SPC f d -> +default/dired

Browse source 
+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.
This commit is contained in:
Henrik Lissner 2020-07-26 18:40:42 -04:00
parent ccfaf3f464
commit 87199113bd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/config/default/+evil-bindings.el
View file

@ -381,7 +381,7 @@
(:prefix-map ("f" . "file") (:prefix-map ("f" . "file")
:desc "Open project editorconfig" "c" #'editorconfig-find-current-editorconfig :desc "Open project editorconfig" "c" #'editorconfig-find-current-editorconfig
:desc "Copy this file" "C" #'doom/copy-this-file :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 "Delete this file" "D" #'doom/delete-this-file
:desc "Find file in emacs.d" "e" #'+default/find-in-emacsd :desc "Find file in emacs.d" "e" #'+default/find-in-emacsd
:desc "Browse emacs.d" "E" #'+default/browse-emacsd :desc "Browse emacs.d" "E" #'+default/browse-emacsd

10
modules/config/default/autoload/files.el
View file

@ -57,3 +57,13 @@ If prefix ARG is non-nil, prompt for the search path."
(if projectile-project-search-path (if projectile-project-search-path
(mapc #'projectile-discover-projects-in-directory 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")))) (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 ""))))