diff --git a/modules/config/default/+evil-bindings.el b/modules/config/default/+evil-bindings.el
index 6a78aff32..25b310960 100644
--- a/modules/config/default/+evil-bindings.el
+++ b/modules/config/default/+evil-bindings.el
@@ -550,13 +550,15 @@
       ;;; <leader> / --- search
       (:prefix-map ("/" . "search")
         :desc "Search buffer"                 "b" #'swiper
-        :desc "Search current directory"      "d" #'+default/search-from-cwd
+        :desc "Search current directory"      "d" #'+default/search-cwd
+        :desc "Search other directory"        "D" #'+default/search-other-cwd
         :desc "Jump to symbol"                "i" #'imenu
         :desc "Jump to link"                  "l" #'ace-link
         :desc "Look up online"                "o" #'+lookup/online-select
         :desc "Look up in local docsets"      "k" #'+lookup/in-docsets
         :desc "Look up in all docsets"        "K" #'+lookup/in-all-docsets
-        :desc "Search project"                "p" #'+default/search-project)
+        :desc "Search project"                "p" #'+default/search-project
+        :desc "Search other project"          "P" #'+default/search-other-project)
 
       ;;; <leader> TAB --- workspace
       (:when (featurep! :ui workspaces)
diff --git a/modules/config/default/autoload/default.el b/modules/config/default/autoload/default.el
index 86c68aa8e..ebf2bc087 100644
--- a/modules/config/default/autoload/default.el
+++ b/modules/config/default/autoload/default.el
@@ -220,7 +220,7 @@ possible, or just one char if that's not possible."
         ((delete-char (- n) killflag))))
 
 ;;;###autoload
-(defun +default/search-from-cwd (&optional arg)
+(defun +default/search-cwd (&optional arg)
   "Conduct a text search in files under the current folder.
 If prefix ARG is set, prompt for a directory to search from."
   (interactive "P")
@@ -231,7 +231,13 @@ If prefix ARG is set, prompt for a directory to search from."
     (call-interactively
      (cond ((featurep! :completion ivy)  #'+ivy/project-search-from-cwd)
            ((featurep! :completion helm) #'+helm/project-search-from-cwd)
-           (#'projectile-grep)))))
+           (#'rgrep)))))
+
+;;;###autoload
+(defun +default/search-other-cwd ()
+  "Conduct a text search in another directory."
+  (interactive)
+  (+default/search-cwd 'other))
 
 ;;;###autoload
 (defun +default/search-project (&optional arg)
@@ -248,7 +254,13 @@ If prefix ARG is set, prompt for a known project to search from."
     (call-interactively
      (cond ((featurep! :completion ivy)  #'+ivy/project-search)
            ((featurep! :completion helm) #'+helm/project-search)
-           (#'rgrep)))))
+           (#'projectile-grep)))))
+
+;;;###autoload
+(defun +default/search-other-project ()
+  "Conduct a text search in a known project."
+  (interactive)
+  (+default/search-project 'other))
 
 ;;;###autoload
 (defun +default/search-project-for-symbol-at-point (&optional arg symbol)