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

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

[nongnu] elpa/alect-themes 1dfa1dc 11/11: Add support for 'which-key'


From: ELPA Syncer
Subject: [nongnu] elpa/alect-themes 1dfa1dc 11/11: Add support for 'which-key'
Date: Fri, 22 Oct 2021 02:57:34 -0400 (EDT)

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

    Add support for 'which-key'
---
 README.md       |  1 +
 alect-themes.el | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/README.md b/README.md
index 2f83384..116c583 100644
--- a/README.md
+++ b/README.md
@@ -92,6 +92,7 @@ supported (themed):
 - [tabbar](https://github.com/dholm/tabbar)
 - [transient](https://github.com/magit/transient)
 - [w3m](http://emacs-w3m.namazu.org/)
+- [which-key](https://github.com/justbur/emacs-which-key)
 - [winum](https://github.com/deb0ch/emacs-winum)
 
 The other packages are not supported yet even if there are some
diff --git a/alect-themes.el b/alect-themes.el
index 25e0049..2e69682 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -1768,6 +1768,16 @@ For INVERT, see `alect-get-color'."
          ;; which-func-mode
          (which-func ((,c :inherit font-lock-function-name-face)))
 
+         ;; which-key
+         (which-key-key-face                 ((,c :inherit alect-key)))
+         (which-key-separator-face           ((,c :foreground ,(gc 'fg-1))))
+         (which-key-note-face                ((,c :inherit 
font-lock-comment-face)))
+         (which-key-command-description-face ((,c nil)))
+         (which-key-highlighted-command-face ((,c :foreground ,(gc 'blue))))
+         (which-key-group-description-face   ((,c :inherit 
which-key-command-description-face
+                                                  :weight bold)))
+         (which-key-docstring-face           ((,c :inherit 
font-lock-doc-face)))
+
          ;; whitespace-mode
          (whitespace-space            ((,c :foreground ,(gc 'bg+1))))
          (whitespace-hspace           ((,c :background ,(gc 'bg)



reply via email to

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