[elpa] externals/embark 54e5efa 2/2: Merge pull request #432 from minad/consult-crm

[ELPA Syncer]

branch: externals/embark
commit 54e5efae17a5c2898faabeaca9564a4d5f05761f
Merge: 666a3c5 5655bef
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #432 from minad/consult-crm
    
    Add candidate collector for consult-completing-read-multiple
---
 embark-consult.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/embark-consult.el b/embark-consult.el
index 9c2911e..fb9e0dd 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -320,5 +320,14 @@ that is a Consult async command."
 (setf (alist-get 'imenu embark-default-action-overrides) #'consult-imenu)
 (add-to-list 'embark-candidate-collectors #'embark-consult-outline-candidates 
'append)
 
+;; consult-completing-read-multiple
+
+(defun embark-consult--crm-selected ()
+  "Return selected candidates from `consult-completing-read-multiple'."
+  (when-let (cands (consult--crm-selected))
+    (cons (completion-metadata-get (embark--metadata) 'category) cands)))
+
+(add-hook 'embark-candidate-collectors #'embark-consult--crm-selected)
+
 (provide 'embark-consult)
 ;;; embark-consult.el ends here