diff --git a/emacs/.emacs.d/config/init-completion.el b/emacs/.emacs.d/config/init-completion.el index be4fa75..0e496d6 100644 --- a/emacs/.emacs.d/config/init-completion.el +++ b/emacs/.emacs.d/config/init-completion.el @@ -32,11 +32,9 @@ ;; Embark adds context actions to completion candidates (use-package embark :config - (setq embark-action-indicator - (lambda (map _target) - (which-key--show-keymap "Embark" map nil nil 'no-paging) - #'which-key--hide-popup-ignore-command) - embark-become-indicator embark-action-indicator) + (defun embark-which-key-indicator (map _target) + (which-key--show-keymap "Embark" map nil nil 'no-paging) + #'which-key--hide-popup-ignore-command) :general ("M-o" #'embark-act) ('normal embark-collect-mode-map @@ -59,7 +57,8 @@ "}" #'tabulated-list-widen-current-column "" #'backward-button) :custom - (embark-prompter 'embark-keymap-prompter)) + (embark-prompter 'embark-keymap-prompter) + (embark-indicator 'embark-which-key-indicator)) ;; Consult adds a bunch of completing-read based utilities (use-package consult