emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/kind-icon d7746f8 05/51: Check inherited default face b


From: ELPA Syncer
Subject: [elpa] externals/kind-icon d7746f8 05/51: Check inherited default face background and foreground.
Date: Wed, 17 Nov 2021 15:57:39 -0500 (EST)

branch: externals/kind-icon
commit d7746f8da76b17a5d46f4aa97293fd94ec718ecf
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    Check inherited default face background and foreground.
---
 kind-prefix.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/kind-prefix.el b/kind-prefix.el
index 678deab..c6b98cb 100644
--- a/kind-prefix.el
+++ b/kind-prefix.el
@@ -147,13 +147,13 @@ priority."
     (or (plist-get plist :display-icon)
        (let* ((bg-rgb (color-name-to-rgb
                        (if kind-prefix-default-face
-                           (face-attribute kind-prefix-default-face 
:background)
+                           (face-attribute kind-prefix-default-face 
:background nil t)
                          (frame-parameter nil 'background-color))))
               (col-face (plist-get plist :face))
               (col (if col-face
                        (face-attribute col-face :foreground)
                      (if kind-prefix-default-face
-                         (face-attribute kind-prefix-default-face :foreground)
+                         (face-attribute kind-prefix-default-face :foreground 
nil t)
                        (frame-parameter nil 'foreground-color))))
               (bg-col (kind-prefix--rgb-blend
                        (color-name-to-rgb col) bg-rgb
@@ -164,8 +164,9 @@ priority."
                                     'display (apply #'svg-lib-icon icon nil
                                                     :foreground col 
:background bg-col
                                                     kind-prefix-icon-style))
-                      (propertize (cadr map) 'face
-                                  `(:weight bold :foreground ,col :background 
,bg-col)))))
+                      (propertize
+                       (cadr map) 'face
+                       `(:weight bold :foreground ,col :background ,bg-col)))))
          (plist-put plist :display-icon disp)
          disp))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]