[elpa] externals/marginalia f3eaa1a 197/241: Add annotator for the embark-keybinding category

[Stefan Monnier]

branch: externals/marginalia
commit f3eaa1a0372c54295a3ae9b800527d58c991ff3d
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Add annotator for the embark-keybinding category
---
 marginalia.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/marginalia.el b/marginalia.el
index d65e66b..2402283 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -110,6 +110,7 @@ See also `marginalia-annotators-heavy'."
      (project-file . marginalia-annotate-project-file)
      (buffer . marginalia-annotate-buffer)
      (command . marginalia-annotate-command)
+     (embark-keybinding . marginalia-annotate-embark-keybinding)
      (consult-multi . marginalia-annotate-consult-multi))
    marginalia-annotators-light)
   "Heavy annotator functions.
@@ -439,6 +440,13 @@ Similar to `marginalia-annotate-symbol', but does not show 
symbol class."
      (marginalia-annotate-binding cand)
      (marginalia--documentation (marginalia--function-doc sym)))))
 
+(defun marginalia-annotate-embark-keybinding (cand)
+  "Annotate Embark keybinding CAND with its documentation string.
+Similar to `marginalia-annotate-command', but does not show the
+keybinding since CAND includes it."
+  (when-let (cmd (get-text-property 0 'embark-command cand))
+    (marginalia--documentation (marginalia--function-doc cmd))))
+
 (defun marginalia-annotate-imenu (cand)
   "Annotate imenu CAND with its documentation string."
   (when (derived-mode-p 'emacs-lisp-mode)