[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark 54e5efa 2/2: Merge pull request #432 from minad/
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark 54e5efa 2/2: Merge pull request #432 from minad/consult-crm |
Date: |
Mon, 13 Dec 2021 11:57:17 -0500 (EST) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/embark 54e5efa 2/2: Merge pull request #432 from minad/consult-crm,
ELPA Syncer <=