From 74aae48944110b1b792591a1924b9b114d5824ed Mon Sep 17 00:00:00 2001
From: "Itai Y. Efrat" <itai3397@gmail.com>
Date: Tue, 21 Sep 2021 14:24:59 +0300
Subject: [PATCH] feat(default): add .emacs.d search on <leader> s e

---
 modules/config/default/+emacs-bindings.el |  1 +
 modules/config/default/+evil-bindings.el  |  1 +
 modules/config/default/autoload/search.el | 11 +++++++++++
 3 files changed, 13 insertions(+)

diff --git a/modules/config/default/+emacs-bindings.el b/modules/config/default/+emacs-bindings.el
index a1881db3f..1808c7185 100644
--- a/modules/config/default/+emacs-bindings.el
+++ b/modules/config/default/+emacs-bindings.el
@@ -123,6 +123,7 @@
              ((featurep! :completion helm)      #'swiper-all))
        :desc "Search current directory"     "d" #'+default/search-cwd
        :desc "Search other directory"       "D" #'+default/search-other-cwd
+       :desc "Search .emacs.d"              "e" #'+default/search-emacsd
        :desc "Locate file"                  "f" #'+lookup/file
        :desc "Jump to symbol"               "i" #'imenu
        :desc "Jump to visible link"         "l" #'link-hint-open-link
diff --git a/modules/config/default/+evil-bindings.el b/modules/config/default/+evil-bindings.el
index d48f01832..3932697c1 100644
--- a/modules/config/default/+evil-bindings.el
+++ b/modules/config/default/+evil-bindings.el
@@ -711,6 +711,7 @@
              ((featurep! :completion helm)      #'swiper-all))
        :desc "Search current directory"     "d" #'+default/search-cwd
        :desc "Search other directory"       "D" #'+default/search-other-cwd
+       :desc "Search .emacs.d"              "e" #'+default/search-emacsd
        :desc "Locate file"                  "f" #'locate
        :desc "Jump to symbol"               "i" #'imenu
        :desc "Jump to visible link"         "l" #'link-hint-open-link
diff --git a/modules/config/default/autoload/search.el b/modules/config/default/autoload/search.el
index 20faf7cd3..8049f667b 100644
--- a/modules/config/default/autoload/search.el
+++ b/modules/config/default/autoload/search.el
@@ -21,6 +21,17 @@ If prefix ARG is set, prompt for a directory to search from."
   (interactive)
   (+default/search-cwd 'other))
 
+;;;###autoload
+(defun +default/search-emacsd ()
+  "Conduct a text search in files under `user-emacs-directory'."
+  (interactive)
+  (let ((default-directory user-emacs-directory))
+    (call-interactively
+     (cond ((featurep! :completion ivy)     #'+ivy/project-search-from-cwd)
+           ((featurep! :completion helm)    #'+helm/project-search-from-cwd)
+           ((featurep! :completion vertico) #'+vertico/project-search-from-cwd)
+           (#'rgrep)))))
+
 ;;;###autoload
 (defun +default/search-buffer ()
   "Conduct a text search on the current buffer.