commit 883eb19bc1369490120eb76df6df9c8c0b697de0
parent 24a64a82eefe75847f807a1d31400582388b91ff
Author: Jake Koroman <jake@jakekoroman.com>
Date: Sun, 3 Aug 2025 19:49:44 -0400
emacs: change to corfu+cape. no more company ... finally.
Diffstat:
| M | emacs/init.el | | | 54 | +++++++++++++++++++++++------------------------------- |
1 file changed, 23 insertions(+), 31 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el
@@ -85,6 +85,20 @@
completion-ignore-case t)
(fido-vertical-mode))
+(use-package corfu
+ :ensure t
+ :init
+ (global-corfu-mode)
+ (corfu-popupinfo-mode))
+
+(use-package cape
+ :ensure t
+ :bind (("M-/" . cape-dabbrev)))
+
+(use-package dabbrev
+ :config
+ (setq dabbrev-case-replace nil))
+
(use-package ediff
:ensure nil
:config
@@ -103,8 +117,7 @@
(add-to-list 'compilation-error-regexp-alist
'("^\\(.*\\)(\\([0-9]+\\)+\\,\\([0-9]+\\)).*" 1 2 3)))
-(use-package modus-themes
- :ensure nil
+(use-package emacs
:config
(setq modus-themes-org-blocks 'gray-background))
@@ -160,14 +173,14 @@
;; (vertico-mode 1)
(setq vertico-cycle t))
-(use-package completion-preview
- :ensure nil
- :bind
- (:map completion-preview-active-mode-map
- ("M-n" . completion-preview-next-candidate)
- ("M-p" . completion-preview-prev-candidate))
- :hook
- (emacs-lisp-mode . (lambda () (completion-preview-mode))))
+;; (use-package completion-preview
+;; :ensure nil
+;; :bind
+;; (:map completion-preview-active-mode-map
+;; ("M-n" . completion-preview-next-candidate)
+;; ("M-p" . completion-preview-prev-candidate))
+;; :hook
+;; (emacs-lisp-mode . (lambda () (completion-preview-mode))))
(use-package orderless
:ensure t
@@ -194,30 +207,9 @@
:init
(marginalia-mode))
-(use-package company
- :ensure t
- :config
- (setq company-idle-delay nil)
- (global-company-mode)
- :bind
- ("C-<return>" . company-complete)
- ("C-<tab>" . dabbrev-expand))
-
(use-package yasnippet
:ensure t
:config
- (require 'company)
- ;; Add yasnippet support for all company backends
- ;; https://github.com/syl20bnr/spacemacs/pull/179
- (defvar company-mode/enable-yas t
- "Enable yasnippet for all backends.")
-
- (defun company-mode/backend-with-yas (backend)
- (if (or (not company-mode/enable-yas) (and (listp backend) (member 'company-yasnippet backend)))
- backend
- (append (if (consp backend) backend (list backend))
- '(:with company-yasnippet))))
- (setq company-backends (mapcar #'company-mode/backend-with-yas company-backends))
(yas-global-mode 1))
(use-package dumb-jump
