Add company-deprecated supportcompany-deprecated

1 files changed, 31 insertions, 18 deletions

diff --git a/corfu.el b/corfu.el
index 5f3f228..eb4a4e1 100644
--- a/corfu.el
+++ b/corfu.el
@@ -120,6 +120,10 @@ completion began less than that number of seconds ago."
   :group 'corfu
   :group 'faces)
 
+(defface corfu-deprecated
+  '((t :strike-through t))
+  "Face used for deprecated candidates.")
+
 (defface corfu-background
   '((((class color) (min-colors 88) (background dark)) :background "#191a1b")
     (((class color) (min-colors 88) (background light)) :background "#f0f0f0")
@@ -559,24 +563,33 @@ completion began less than that number of seconds ago."
   (interactive)
   (completion-in-region-mode -1))
 
-(defun corfu--affixate (candidates)
-  "Annotate CANDIDATES with annotation function."
-  (if-let (aff (or (corfu--metadata-get corfu--metadata 'affixation-function)
-                   (plist-get corfu--extra :affixation-function)))
-      (funcall aff candidates)
-    (if-let (ann (or (corfu--metadata-get corfu--metadata 'annotation-function)
-                     (plist-get corfu--extra :annotation-function)))
-        (mapcar (lambda (cand)
-                  (let ((suffix (or (funcall ann cand) "")))
-                    (list cand ""
-                          ;; The default completion UI adds the `completions-annotations' face
-                          ;; if no other faces are present. We use a custom `corfu-annotations'
-                          ;; face to allow further styling which fits better for popups.
-                          (if (text-property-not-all 0 (length suffix) 'face nil suffix)
-                              suffix
-                            (propertize suffix 'face 'corfu-annotations)))))
-                candidates)
-      (mapcar (lambda (cand) (list cand "" "")) candidates))))
+(defun corfu--affixate (cands)
+  "Annotate CANDS with annotation function."
+  (setq cands
+        (if-let (aff (or (corfu--metadata-get corfu--metadata 'affixation-function)
+                         (plist-get corfu--extra :affixation-function)))
+            (funcall aff cands)
+          (if-let (ann (or (corfu--metadata-get corfu--metadata 'annotation-function)
+                           (plist-get corfu--extra :annotation-function)))
+              (mapcar (lambda (cand)
+                        (let ((suffix (or (funcall ann cand) "")))
+                          (list cand ""
+                                ;; The default completion UI adds the `completions-annotations' face
+                                ;; if no other faces are present. We use a custom `corfu-annotations'
+                                ;; face to allow further styling which fits better for popups.
+                                (if (text-property-not-all 0 (length suffix) 'face nil suffix)
+                                    suffix
+                                  (propertize suffix 'face 'corfu-annotations)))))
+                      cands)
+            (mapcar (lambda (cand) (list cand "" "")) cands))))
+  (if-let (dep (plist-get corfu--extra :company-deprecated))
+      (mapcar (pcase-lambda (`(,cand ,prefix ,suffix))
+                (when (funcall dep cand)
+                  (setq cand (substring cand))
+                  (add-face-text-property 0 (length cand) 'corfu-deprecated 'append cand))
+                (list cand prefix suffix))
+              cands)
+    cands))
 
 ;; XXX Do not use `completion-metadata-get' in order to avoid Marginalia.
 ;; The Marginalia annotators are way to heavy for the Corfu popup!