From 26014435b2626f257070e3f079be21c617c9ada9 Mon Sep 17 00:00:00 2001 From: "Itai Y. Efrat" Date: Tue, 10 Aug 2021 17:50:00 +0300 Subject: [PATCH] feat(vertico): colorize vertico candidate on act --- modules/completion/vertico/autoload/vertico.el | 11 +++++++++++ modules/completion/vertico/config.el | 1 + 2 files changed, 12 insertions(+) diff --git a/modules/completion/vertico/autoload/vertico.el b/modules/completion/vertico/autoload/vertico.el index e76966561..b8c3d0cc6 100644 --- a/modules/completion/vertico/autoload/vertico.el +++ b/modules/completion/vertico/autoload/vertico.el @@ -289,3 +289,14 @@ targets." (default-directory (cdr prompt-dir))) (find-file (consult--find (car prompt-dir) #'+vertico--consult--fd-builder initial))) (consult-find dir initial))) + +;;;###autoload +(defun +vertico-embark-vertico-indicator () + "An embark indicator that colorizes the vertico candidate differently on act" + (let ((fr face-remapping-alist)) + (lambda (&optional keymap _targets prefix) + (when (bound-and-true-p vertico--input) + (setq-local face-remapping-alist + (if keymap + (cons '(vertico-current . embark-target) fr) + fr)))))) diff --git a/modules/completion/vertico/config.el b/modules/completion/vertico/config.el index 0fc5c81f8..efb33cfe4 100644 --- a/modules/completion/vertico/config.el +++ b/modules/completion/vertico/config.el @@ -147,6 +147,7 @@ overrides `completion-styles' during company completion sessions.") :config (set-popup-rule! "^\\*Embark Export Grep" :size 0.35 :ttl 0 :quit nil) (cl-nsubstitute #'+vertico/embark-which-key-indicator #'embark-mixed-indicator embark-indicators) + (add-to-list 'embark-indicators #'+vertico-embark-vertico-indicator) ;; add the package! target finder before the file target finder, ;; so we don't get a false positive match. (let ((pos (or (cl-position