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

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

[nongnu] elpa/alect-themes c232a30 186/269: Add 'alect-key' auxiliary fa


From: ELPA Syncer
Subject: [nongnu] elpa/alect-themes c232a30 186/269: Add 'alect-key' auxiliary face
Date: Thu, 21 Oct 2021 17:59:16 -0400 (EDT)

branch: elpa/alect-themes
commit c232a30ef17de2759a48113b397d0787e6e1d912
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>

    Add 'alect-key' auxiliary face
    
    Modify 'apropos-keybinding' to use it.
---
 alect-themes.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/alect-themes.el b/alect-themes.el
index fe88b63..a7428ba 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -118,6 +118,12 @@ Used for date/time faces like `org-date' or 
`erc-timestamp-face'."
 Used for author faces like `magit-log-author' or `change-log-name'."
   :group 'alect)
 
+(defface alect-key
+  '((t nil))
+  "Auxiliary face for inheriting by some other faces.
+Used for key faces like `apropos-keybinding' or `magit-popup-key'."
+  :group 'alect)
+
 (defface alect-selected-item
   '((t nil))
   "Auxiliary face for inheriting by some other faces.
@@ -427,7 +433,9 @@ For INVERT, see `alect-get-color'."
          (alect-prompt         ((,c :foreground ,(gc 'magenta-1)
                                     :weight bold)))
          (alect-time           ((,c :foreground ,(gc 'cyan-2))))
-         (alect-author           ((,c :foreground ,(gc 'magenta-1))))
+         (alect-author         ((,c :foreground ,(gc 'magenta-1))))
+         (alect-key            ((,c :foreground ,(gc 'red-2)
+                                    :weight bold)))
          (alect-selected-item  ((,c :background ,(gc 'bg)
                                     :box (:line-width -1
                                           :color ,(gc 'fg+1)
@@ -510,7 +518,7 @@ For INVERT, see `alect-get-color'."
          (android-mode-warning-face  ((,c :foreground ,(gc 'yellow))))
 
          ;; apropos
-         (apropos-keybinding      ((,c :foreground ,(gc 'yellow))))
+         (apropos-keybinding      ((,c :inherit alect-key)))
          (apropos-symbol          ((,c :foreground ,(gc 'green+1)
                                        :weight bold)))
 



reply via email to

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