diff options
| -rw-r--r-- | lisp/ravi-init-completion.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/ravi-init-completion.el b/lisp/ravi-init-completion.el index 76d216c..9159a4c 100644 --- a/lisp/ravi-init-completion.el +++ b/lisp/ravi-init-completion.el @@ -67,6 +67,13 @@ :init (vertico-mode)) +(defun ravi/bind-key-selection-system-map (key func) + "Bind to appropriate minibuffer completion map" + (bind-key key func + (pcase ravi/use-selection-system + ('selectrum selectrum-minibuffer-map) + ('vertico vertico-map)))) + (use-package marginalia :if (member ravi/use-selection-system '(selectrum vertico)) :config (marginalia-mode)) @@ -82,10 +89,7 @@ :init ;; Optionally replace the key help with a completing-read interface (setq prefix-help-command #'embark-prefix-help-command) - (bind-key "C-t" #'embark-act - (pcase ravi/use-selection-system - ('selectrum selectrum-minibuffer-map) - ('vertico vertico-map))) + (ravi/bind-key-selection-system-map "C-t" #'embark-act) :config (defun embark-magit-status (file) "Run `magit-status` on repo containing the embark target." |