TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

counsel: Allow command line args in search

Browse source 
If " -- " appears in the search string split the search string on the
first occurrence with everything before treated as args to the search
and everything after treated as part of the regex.
This commit is contained in:
justbur 2016-01-22 19:49:26 -05:00 committed by syl20bnr
parent 2ed37e4a33
commit 1bf4052f37
1 changed files with 14 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
layers/+completion/spacemacs-ivy/packages.el
View file

@ -22,10 +22,10 @@
(defun spacemacs-ivy/init-counsel ()
(defvar spacemacs--counsel-commands
'(("ag" . "ag --vimgrep %S .")
("pt" . "pt.exe -e --nocolor --nogroup --column %S .")
("ack" . "ack --nocolor --nogroup --column %S .")
("grep" . "grep -nrP %S ."))
'(("ag" . "ag --vimgrep %s %S .")
("pt" . "pt -e --nocolor --nogroup --column %s %S .")
("ack" . "ack --nocolor --nogroup --column %s %S .")
("grep" . "grep -nrP %s %S ."))
"Alist of search commands and their corresponding commands
with options to run in the shell.")
@ -88,11 +88,16 @@ than this amount.")
"Grep in the current directory for STRING."
(if (< (length string) 3)
(counsel-more-chars 3)
(let ((default-directory counsel--git-grep-dir)
(regex (counsel-unquote-regex-parens
(setq ivy--old-re
(ivy--regex string)))))
(spacemacs//counsel-async-command (format base-cmd regex))
(let* ((default-directory counsel--git-grep-dir)
(args (if (string-match-p " -- " string)
(let ((split (split-string string " -- ")))
(prog1 (pop split)
(setq string (mapconcat #'identity split " -- "))))
""))
(regex (counsel-unquote-regex-parens
(setq ivy--old-re
(ivy--regex string)))))
(spacemacs//counsel-async-command (format base-cmd args regex))
nil)))))
;; see `counsel-ag'