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

Use helm-do-ag instead of helm-ag #805

Browse source 
Fixes project search matching against the leading file name.

And ensures modeline remains disabled.
This commit is contained in:
Henrik Lissner 2018-08-15 19:44:09 +02:00
parent 104e01f588
commit 11b8ee55a1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -153,18 +153,12 @@ order.
('grep (+helm--grep-search directory query prompt all-files recursive)
(cl-return t))))
(helm-ag-base-command (string-join command " ")))
(if (and (eq engine 'ag)
(equal query ""))
(helm-do-ag directory)
(setq helm-ag--last-query query)
(helm-attrset 'search-this-file nil helm-ag-source)
(helm-attrset 'name (helm-ag--helm-header helm-ag--default-directory) helm-ag-source)
(helm :sources '(helm-ag-source)
:input query
:prompt prompt
:buffer "*helm-ag*"
:keymap helm-ag-map
:history 'helm-ag--helm-history))))
(when (> (length query) 0)
(setcdr (assq 'requires-pattern helm-source-do-ag) 1))
(cl-letf (((symbol-function 'helm-ag--marked-input) (lambda (_escape) query)))
(helm-do-ag directory)
;; restore default
(setcdr (assq 'requires-pattern helm-source-do-ag) 3))))
(defun +helm--get-command (format)
(cl-loop for tool in (cl-remove-duplicates +helm-project-search-engines :from-end t)