blob: bc7b29707fe0eb4302cda059e41dd58f64737acc (
plain) (
blame)
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;; mm-completion.el --- Configuration for Emacs completion -*- lexical-binding: t; -*-
^L
;;; Vertical Completions
(use-package vertico
:ensure t
:hook after-init
:custom
(vertico-cycle t)
:config
(require 'hl-line))
^L
;;; Annotate Completions
;; TODO: Show git branch descriptions!
(use-package marginalia
:ensure t
:hook after-init
:custom
(marginalia-field-width 50))
^L
;;; Orderless Completion Style
;; TODO: Make sure this doesn’t suck
(use-package orderless
:ensure t
:custom
(completion-styles '(orderless basic))
(orderless-matching-styles '(orderless-prefixes))
(completion-category-overrides '((file (styles basic partial-completion)))))
^L
;;; Completion Popups
(use-package corfu
:ensure t
:hook ((prog-mode . corfu-mode))
:bind (:map corfu-map
("C-<return>" . newline))
:custom
(corfu-auto t)
(corfu-cycle t)
(corfu-auto-prefix 1)
(corfu-auto-delay 0))
^L
;;; Save Minibuffer History
(use-package savehist-mode
:hook (after-init . savehist-mode))
(provide 'mm-completion)
|
