blob: f9ed8b0479a494d8928f24b64c7fbd47a1a2e91b (
plain)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
|
;; Time-stamp: <2020-04-23 20:59:13 (tslil@bison)>
(use-package deadgrep
:ensure t
:bind (("C-c g" . deadgrep)))
(defun selectrum-recentf ()
(interactive)
(let ((selectrum-should-sort-p nil))
(find-file (completing-read "Recent file: " recentf-list nil t))))
(defun selectrum-yank ()
(interactive)
(let ((selectrum-should-sort-p nil))
(insert (selectrum-completing-read "Yank: " (delete-duplicates kill-ring :test #'equal) nil t))))
(use-package selectrum
:bind (("C-x f" . selectrum-recentf)
("M-y" . selectrum-yank))
:config
(setq selectrum-num-candidates-displayed 7
selectrum-count-style 'matches)
(selectrum-mode +1))
(use-package prescient
:ensure t)
(use-package selectrum-prescient
:ensure t
:config
(selectrum-prescient-mode +1)
(prescient-persist-mode +1)
;; I don't want enable-recursive-minibuffers so this is the next best thing:
(setq-default completion-in-region-function selectrum--old-completion-in-region-function)
)
;; (use-package ctrlf
;; :ensure t
;; :config (ctrlf-mode +1))
|
