blob: 0be23a0dcdcace257fe7f2f579e94f478008096d (
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
|
;; Time-stamp: <2020-05-24 12:03:56 (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))
|
