From 4a4a9a1ada52c3f79c9fb1b79f5e74204821afd5 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 28 Aug 2024 22:26:47 -0400 Subject: [PATCH] feat(corfu): add +corfu/toggle-auto-complete command --- modules/completion/corfu/autoload.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/modules/completion/corfu/autoload.el b/modules/completion/corfu/autoload.el index d3c63d5d2..7f01018b2 100644 --- a/modules/completion/corfu/autoload.el +++ b/modules/completion/corfu/autoload.el @@ -46,4 +46,18 @@ (let ((cape-dabbrev-check-other-buffers nil)) (cape-dabbrev t))) +;;;###autoload +(defun +corfu/toggle-auto-complete (&optional interactive) + "Toggle as-you-type completion in Corfu." + (interactive (list 'interactive)) + (dolist (buf (buffer-list)) + (with-current-buffer buf + (when corfu-mode + (if corfu-auto + (remove-hook 'post-command-hook #'corfu--auto-post-command 'local) + (add-hook 'post-command-hook #'corfu--auto-post-command nil 'local))))) + (when interactive + (message "Corfu auto-complete %s" (if corfu-auto "disabled" "enabled"))) + (setq corfu-auto (not corfu-auto))) + ;;; end of autoload.el