d526780aef
Add various CAPFs from cape: - `cape-line`; - `cape-dabbrev`; - `cape-emoji`; - `cape-dict`; Fixed some CAPFs via cape: - Make non-exclusive, purified and silent `pcomplete-completions-at-point`; - Make non-exclusive and non-interruptable `lsp-completion-at-point`; - Make non-exclusive `eglot-completion-at-point`; - Make non-exclusive `comint-completion-at-point`; Fix and improve keybindings: - Smart `backspace` for `+tng`; - Smart `DEL` for `+tng`; - Smart `SPC` which quits if after separator; - Smart `RET`; Add depth to CAPFs, allowing ordering to be adjustable. Remove the `+corfu-completion-styles` mechanism. Add `,` as additional separator. Enable in minibuffer. Bump `cape`.
18 lines
721 B
EmacsLisp
18 lines
721 B
EmacsLisp
;;; completion/corfu/autoload/commands.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun corfu-move-to-minibuffer ()
|
|
;; Taken from corfu's README.
|
|
;; TODO: extend this to other completion front-ends.
|
|
(interactive)
|
|
(let ((completion-extra-properties corfu--extra)
|
|
(completion-cycle-threshold completion-cycling))
|
|
(apply #'consult-completion-in-region completion-in-region--data)))
|
|
|
|
;;;###autoload
|
|
(defun +corfu-insert-wildcard-separator ()
|
|
;; I had to rename this command so that it doesn't start with "corfu-".
|
|
;; Otherwise, it does not insert the completion when +tng is enabled.
|
|
(interactive)
|
|
(setq this-command #'corfu-insert-separator)
|
|
(call-interactively #'corfu-insert-separator))
|