[elpa] externals/standard-themes 8c0cc4a25f 15/23: Add explicit support for which-key package

[ELPA Syncer]

branch: externals/standard-themes
commit 8c0cc4a25f0bc61b45e9a54e80997b4e716a788d
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add explicit support for which-key package
---
 README.org         | 1 +
 standard-themes.el | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/README.org b/README.org
index 3d67e11a33..f27960bded 100644
--- a/README.org
+++ b/README.org
@@ -1198,6 +1198,7 @@ everything most users need.
 - vertico
 - wgrep
 - which-function-mode
+- which-key [Part of {{{development-version}}}]
 - whitespace-mode
 - widget
 - writegood-mode
diff --git a/standard-themes.el b/standard-themes.el
index c819baffe1..98d3d9af6e 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -2027,6 +2027,15 @@ Optional prefix argument MAPPINGS has the same meaning 
as for
     `(wgrep-reject-face ((,c :background ,bg-err :foreground ,err)))
 ;;;; which-function-mode
     `(which-func ((,c :inherit bold :foreground ,modeline-warning))) ; same as 
`breadcrumb-imenu-leaf-face'
+;;;; which-key
+    `(which-key-command-description-face ((,c :foreground ,fg-main)))
+    `(which-key-group-description-face ((,c :foreground ,string)))
+    `(which-key-highlighted-command-face ((,c :foreground ,warning :underline 
t)))
+    `(which-key-key-face ((,c :inherit standard-themes-key-binding)))
+    `(which-key-local-map-description-face ((,c :foreground ,fg-main)))
+    `(which-key-note-face ((,c :inherit shadow)))
+    `(which-key-separator-face ((,c :inherit shadow)))
+    `(which-key-special-key-face ((,c :inherit error)))
 ;;;; whitespace-mode
     `(whitespace-big-indent ((,c :background ,bg-space-err)))
     `(whitespace-empty ((,c :inherit standard-themes-intense-magenta)))