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

Bind 'SPC h d S' to text search; expand ivy/helm file-search API

Browse source
This commit is contained in:
Henrik Lissner 2019-12-23 01:51:43 -05:00
parent e8aa293bc0
commit b144a3862a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
4 changed files with 38 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/completion/helm/autoload/helm.el
View file

@ -38,7 +38,7 @@ workspace."
;;; Project search
;;;###autoload
(cl-defun +helm-file-search (&key query in all-files (recursive t))
(cl-defun +helm-file-search (&key query in all-files (recursive t) _prompt args)
"Conduct a file search using ripgrep.
:query STRING
@ -55,8 +55,9 @@ workspace."
(let ((this-command 'helm-rg)
(helm-rg-default-directory (or in (doom-project-root) default-directory))
(helm-rg-default-extra-args
(delq nil (list (when all-files "-z -uu")
(unless recursive "--maxdepth 1")))))
(delq nil (append (list (when all-files "-z -uu")
(unless recursive "--maxdepth 1"))
args))))
(helm-rg (or query
(when (use-region-p)
(let ((beg (or (bound-and-true-p evil-visual-beginning) (region-beginning)))

21
modules/completion/ivy/autoload/ivy.el
View file

@ -242,7 +242,7 @@ The point of this is to avoid Emacs locking up indexing massive file trees."
(#'counsel-file-jump)))))
;;;###autoload
(cl-defun +ivy-file-search (&key query in all-files (recursive t))
(cl-defun +ivy-file-search (&key query in all-files (recursive t) prompt args)
"Conduct a file search using ripgrep.
:query STRING
@ -260,7 +260,9 @@ The point of this is to avoid Emacs locking up indexing massive file trees."
(project-root (or (doom-project-root) default-directory))
(directory (or in project-root))
(args (concat (if all-files " -uu")
(unless recursive " --maxdepth 1"))))
(unless recursive " --maxdepth 1")
" "
(mapconcat #'shell-quote-argument args " "))))
(counsel-rg
(or (if query query)
(when (use-region-p)
@ -278,13 +280,14 @@ The point of this is to avoid Emacs locking up indexing massive file trees."
((concat "\\\\" substr))))
(rxt-quote-pcre query)))))))
directory args
(format "rg%s [%s]: "
args
(cond ((equal directory default-directory)
"./")
((equal directory project-root)
(projectile-project-name))
((file-relative-name directory project-root)))))))
(or prompt
(format "rg%s [%s]: "
args
(cond ((equal directory default-directory)
"./")
((equal directory project-root)
(projectile-project-name))
((file-relative-name directory project-root))))))))
;;;###autoload
(defun +ivy/project-search (&optional arg initial-query directory)