tweak(project): add optional arg in +project-scan-for-projects

abougouffa · Aug 5, 2023 · 23a617d · 23a617d
1 parent 2dd871e
commit 23a617d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/elisp/+project.el b/elisp/+project.el
@@ -20,10 +20,10 @@ to scan directories recursively."
   :type '(repeat (choice directory (cons directory boolean))))
 
 ;;;###autoload
-(defun +project-scan-for-projects ()
-  "Scan and remember projects under `+project-scan-dir-paths'."
+(defun +project-scan-for-projects (&optional dir)
+  "Scan and remember projects under DIR or `+project-scan-dir-paths'."
   (interactive)
-  (dolist (cons-dir +project-scan-dir-paths)
+  (dolist (cons-dir (or dir +project-scan-dir-paths))
     (let* ((cons-dir (ensure-list cons-dir))
            (root-dir (car cons-dir))
            (recursive (cdr cons-dir))