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

General refactors & comment revision

Browse source
This commit is contained in:
Henrik Lissner 2019-12-19 14:49:17 -05:00
parent e3a1b0bbe3
commit a999a0ddd6
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 41 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

24
modules/config/default/autoload/default.el
View file

@ -238,17 +238,19 @@ If prefix ARG is set, prompt for a directory to search from."
"Conduct a text search in the current project root.
If prefix ARG is set, prompt for a known project to search from."
(interactive "P")
(let ((default-directory
(if arg
(if-let (projects (projectile-relevant-known-projects))
(completing-read "Search project: " projects
nil t nil nil (doom-project-root))
(user-error "There are no known projects"))
default-directory)))
(call-interactively
(cond ((featurep! :completion ivy) #'+ivy/project-search)
((featurep! :completion helm) #'+helm/project-search)
(#'projectile-grep)))))
(let* ((disabled-command-function nil)
(default-directory
(if arg
(if-let (projects (projectile-relevant-known-projects))
(completing-read "Search project: " projects
nil t nil nil (doom-project-root))
(user-error "There are no known projects"))
default-directory))
(this-command
(cond ((featurep! :completion ivy) #'+ivy/project-search)
((featurep! :completion helm) #'+helm/project-search)
(#'projectile-ripgrep))))
(call-interactively this-command)))
;;;###autoload
(defun +default/search-other-project ()