branch: externals/embark
commit 5655bef1af313c3ecac7aa3779ca750e02a35c4f
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
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
