branch: externals/marginalia
commit ef4fabfe16c2e1e1e479820229ebb8acebb24d3a
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
add preliminary support for affixation-function
---
marginalia.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/marginalia.el b/marginalia.el
index 281f37f..552c5c5 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -589,6 +589,12 @@ PROP is the property which is looked up."
;; we do want the advice triggered for completion-metadata-get
(when-let (cat (completion-metadata-get metadata 'category))
(alist-get cat (symbol-value (car marginalia-annotators)))))
+ ('affixation-function
+ ;; We do want the advice triggered for `completion-metadata-get'.
+ ;; Return wrapper around `annotation-function'.
+ (when-let* ((cat (completion-metadata-get metadata 'category))
+ (annotate (alist-get cat (symbol-value (car
marginalia-annotators)))))
+ (lambda (cands) (mapcar (lambda (x) (list x (funcall annotate x)))
cands))))
('category
;; using alist-get bypasses any advice on completion-metadata-get
;; to avoid infinite recursion
