[nongnu] elpa/helm d0e0999cdf 2/3: Add new faces for completions-detailed

[ELPA Syncer]

branch: elpa/helm
commit d0e0999cdf30a9d96eb1aa678cea6597d1fc0ea1
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Add new faces for completions-detailed
---
 helm-mode.el | 28 +++++++++++++++++++---------
 1 file changed, 19 insertions(+), 9 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index fd289f0843..a3677ea995 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -263,6 +263,16 @@ Not guaranteed to work with Emacs < 27."
     '((t :inherit font-lock-property-name-face))
   "Face used to highlight invalid functions."
   :group 'helm-mode)
+
+(defface helm-completions-detailed
+    '((t :inherit font-lock-warning-face))
+  "Face used to highlight completion-detailed informations."
+  :group 'helm-mode)
+
+(defface helm-completions-annotations
+    '((t :inherit font-lock-property-name-face))
+  "Face used to highlight annotations in completion."
+  :group 'helm-mode)
 
 (defvar helm-comp-read-map
   (let ((map (make-sparse-keymap)))
@@ -1071,11 +1081,11 @@ should be specified as a string and the category as a 
symbol.")
                              "fm " 'face 'font-lock-comment-face))
                            (fname
                             (propertize
-                             " f " 'face 'font-lock-property-name-face))
+                             " f " 'face 'helm-completions-annotations))
                            (t (propertize "nf " 'face 'font-lock-doc-face))))
              (mode (with-current-buffer comp
                      (propertize
-                      (symbol-name major-mode) 'face 'font-lock-warning-face)))
+                      (symbol-name major-mode) 'face 
'helm-completions-detailed)))
              (size (helm-buffer-size buf))
              (max-len helm-buffer-max-length)
              (bname (truncate-string-to-width
@@ -1150,13 +1160,13 @@ is used."
                               symbol-class))
                         (group "g")
                         (t "i"))
-                  (propertize it 'face 'completions-annotations)
+                  (propertize it 'face 'helm-completions-detailed)
                   (propertize
                    ;; (format "%-4s" it) makes spaces inheriting text props.
                    " " 'display (concat it (make-string (- 4 (length it)) ? 
))))
        ;; Suffix.
        (if doc
-           (helm-aand (propertize doc 'face 'completions-annotations)
+           (helm-aand (propertize doc 'face 'helm-completions-detailed)
                       (propertize " " 'display (concat sep it)))
          "")))))
 
@@ -1177,9 +1187,9 @@ is used."
              (if status
                  (format "%s " (substring status 0 1))
                "b ")
-              'face 'font-lock-property-name-face)
+              'face 'helm-completions-annotations)
             (or (helm-aand desc
-                           (propertize it 'face 'font-lock-warning-face)
+                           (propertize it 'face 'helm-completions-detailed)
                            (propertize " " 'display (concat sep it)))
                 "")))))
 
@@ -1194,7 +1204,7 @@ is used."
                   (helm--get-theme-doc-1 sym))))
       (list comp
             ""
-            (helm-aand (propertize doc 'face 'font-lock-warning-face)
+            (helm-aand (propertize doc 'face 'helm-completions-detailed)
                        (propertize " " 'display (concat sep it)))))))
 
 (defun helm--get-theme-doc-1 (sym)
@@ -1238,7 +1248,7 @@ is used."
                             ? )))
       (list comp "" (helm-aand (replace-regexp-in-string "^ *" "" doc)
                                (replace-regexp-in-string "[\n]" "" it)
-                               (propertize it 'face 'font-lock-warning-face)
+                               (propertize it 'face 'helm-completions-detailed)
                                (propertize " " 'display (concat sep it)))))))
 
 (defun helm-completion-color-affixation (_comps)
@@ -2208,7 +2218,7 @@ When AFUN, AFIX are nil and CATEGORY is not file return 
COMPS unmodified."
                             " " 'display
                             (propertize
                              ann
-                             'face 'completions-annotations)))
+                             'face 'helm-completions-annotations)))
                           s)
                        s)))
                  comps))