branch: externals/embark
commit 54e5efae17a5c2898faabeaca9564a4d5f05761f
Merge: 666a3c5 5655bef
Author: Omar Antolín Camarena <omar.anto...@gmail.com>
Commit: GitHub <nore...@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
