From 2e088e7945a1f58648debcd3ce75243e4dfa8abd Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Thu, 21 Jan 2021 01:48:06 -0500 Subject: [PATCH] More feedback from +default/discover-projects Log successes and failures to the echo area/*Messages* so we know the command worked (or didn't). --- modules/config/default/autoload/files.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/modules/config/default/autoload/files.el b/modules/config/default/autoload/files.el index 33d6dc126..67a754803 100644 --- a/modules/config/default/autoload/files.el +++ b/modules/config/default/autoload/files.el @@ -45,9 +45,16 @@ If prefix ARG is non-nil, prompt for the search path." (interactive "P") (if arg (call-interactively #'projectile-discover-projects-in-directory) - (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")))) + (if (not projectile-project-search-path) + (user-error "`projectile-project-search-path' is empty; don't know where to search") + (letf! (defun projectile-add-known-project (project-root) + (unless (projectile-ignored-project-p project-root) + (funcall projectile-add-known-project project-root) + (message "Added %S to known project roots"))) + (dolist (dir projectile-project-search-path) + (if (not (file-accessible-directory-p dir)) + (message "%S was inaccessible and couldn't searched") + (projectile-discover-projects-in-directory projectile-project-search-path))))))) ;;;###autoload (defun +default/dired (arg)