-
Notifications
You must be signed in to change notification settings - Fork 0
/
init-everything.el
26 lines (24 loc) · 1.05 KB
/
init-everything.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(use-package everything
:if my/windows-p
:straight (:type built-in)
:commands (everything everything-find-file everything-toggle-case)
:config
(setq everything-cmd (executable-find "es.exe")))
(use-package consult-everything
:straight (consult-everything :host github :repo "jthaman/consult-everything")
:config
(require 'consult-everything)
(defun consult--everything-builder (input)
"Build command line given INPUT."
(pcase-let* ((cmd (split-string-and-unquote consult-everything-args))
(`(,arg . ,opts) (consult--command-split input))
(`(,re . ,hl) (funcall consult--regexp-compiler arg 'basic
(and (not (member "-i" cmd))
(not (member "-case" cmd))))))
(when re
(cons (append cmd (list (consult--join-regexps re 'orderless)) opts) hl)
;; (list :command
;; (append cmd (list (consult--join-regexps re 'orderless)) opts)
;; :highlight hl)
))))
(provide 'init-everything)