blob: aea43d397864cb082fa31bfbb2a46411237f7208 (
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
|
;; Time-stamp: <2020-05-04 13:08:01 (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-dups kill-ring) nil t))))
(use-package selectrum
:ensure t
:bind (("C-x f" . selectrum-recentf)
("M-y" . selectrum-yank))
:config
(setq selectrum-num-candidates-displayed 7
selectrum-count-style 'matches)
;; If i don't want `enable-recursive-minibuffers' this is the next best thing:
;; (setq-default completion-in-region-function selectrum--old-completion-in-region-function)
(setq enable-recursive-minibuffers t)
(selectrum-mode +1))
(use-package selectrum-prescient
:ensure t
:config
(selectrum-prescient-mode +1)
(prescient-persist-mode +1))
;; (use-package ctrlf
;; :ensure t
;; :config (ctrlf-mode +1))
|
