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

completion/ivy: use region is active & fix regex quoting

Browse source 
Fixes #1930
This commit is contained in:
Henrik Lissner 2019-10-22 11:27:07 -04:00
parent 6e6672b135
commit f79d191701
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -366,14 +366,14 @@ order.
(let ((query (buffer-substring-no-properties beg end)))
;; Escape characters that are special to ivy searches
(replace-regexp-in-string "[! |]" (lambda (substr)
(cond ((and (featurep! +fuzzy)
(string= substr " "))
(cond ((and (string= substr " ")
(not (featurep! +fuzzy)))
" ")
((and (string= substr "|")
(eq engine 'rg))
"\\\\\\\\|")
((concat "\\\\" substr))))
(regexp-quote query))))))))
(rxt-quote-pcre query))))))))
(prompt
(format "%s%%s %s"
(symbol-name engine)

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

@ -270,7 +270,13 @@ If prefix ARG is set, prompt for a known project to search from."
"Conduct a text search in the current project for symbol at point.
If prefix ARG is set, prompt for a known project to search from."
(interactive
(list current-prefix-arg (or (thing-at-point 'symbol t) "")))
(list current-prefix-arg
(or (and (use-region-p)
(rxt-quote-pcre
(buffer-substring-no-properties (region-beginning)
(region-end))))
(rxt-quote-pcre (thing-at-point 'symbol t))
"")))
(let ((default-directory
(if arg
(if-let* ((projects (projectile-relevant-known-projects)))
@ -279,9 +285,9 @@ If prefix ARG is set, prompt for a known project to search from."
(user-error "There are no known projects"))
default-directory)))
(cond ((featurep! :completion ivy)
(+ivy/project-search nil (rxt-quote-pcre symbol)))
(+ivy/project-search nil symbol))
((featurep! :completion helm)
(+helm/project-search nil (rxt-quote-pcre symbol)))
(+helm/project-search nil symbol))
((rgrep (regexp-quote symbol))))))
;;;###autoload