diff --git a/modules/editor/siren-marginalia.el b/modules/editor/siren-marginalia.el index 11894fb..9f413ef 100644 --- a/modules/editor/siren-marginalia.el +++ b/modules/editor/siren-marginalia.el @@ -10,7 +10,22 @@ :bind (:map minibuffer-local-map ("M-A" . marginalia-cycle)) :init - (marginalia-mode +1)) + (marginalia-mode +1) + + (defun siren-marginalia-setup () + (interactive) + (mapc + (lambda (x) + (pcase (car x) + ;; Default command category to 'marginalia-annotate-binding instead of + ;; 'marginalia-annotate-command which has a slight performance impact + ;; when filtering M-x candidates. + ('command (setcdr x (cons 'marginalia-annotate-binding + (remq 'marginalia-annotate-binding (cdr x))))))) + marginalia-annotator-registry)) + + :config + (siren-marginalia-setup)) (provide 'siren-marginalia) ;;; siren-marginalia.el ends here