[elpa] externals/embark 175f0ab 10/10: Merge pull request #428 from minad/indicators

[ELPA Syncer]

branch: externals/embark
commit 175f0abaf6b1538533e245358bbbe42e27567822
Merge: bc460d9 3579f1f
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #428 from minad/indicators
    
    Add minibuffer indicators for Vertico and Selectrum (Fix #427)
---
 embark.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/embark.el b/embark.el
index c294773..a057762 100644
--- a/embark.el
+++ b/embark.el
@@ -3136,7 +3136,18 @@ Return the category metadatum as the type of the 
candidates."
     (cons (completion-metadata-get (embark--metadata) 'category)
           vertico--candidates)))
 
+(defun embark--vertico-indicator ()
+  "Embark indicator highlighting the current Vertico candidate."
+  (let ((fr face-remapping-alist))
+    (lambda (&optional keymap _targets _prefix)
+      (when vertico--input
+        (setq-local face-remapping-alist
+                    (if keymap
+                        (cons '(vertico-current . embark-target) fr)
+                      fr))))))
+
 (with-eval-after-load 'vertico
+  (add-hook 'embark-indicators #'embark--vertico-indicator)
   (add-hook 'embark-target-finders #'embark--vertico-selected)
   (add-hook 'embark-candidate-collectors #'embark--vertico-candidates))
 
@@ -3171,7 +3182,18 @@ Return the category metadatum as the type of the 
candidates."
           ;; Pass relative file names for dired.
           minibuffer-completing-file-name))))
 
+(defun embark--selectrum-indicator ()
+  "Embark indicator highlighting the current Selectrum candidate."
+  (let ((fr face-remapping-alist))
+    (lambda (&optional keymap _targets _prefix)
+      (when selectrum-is-active
+        (setq-local face-remapping-alist
+                    (if keymap
+                        (cons '(selectrum-current-candidate . embark-target) 
fr)
+                      fr))))))
+
 (with-eval-after-load 'selectrum
+  (add-hook 'embark-indicators #'embark--selectrum-indicator)
   (add-hook 'embark-target-finders #'embark--selectrum-selected)
   (add-hook 'embark-candidate-collectors #'embark--selectrum-candidates))