Add support for window-tool-bar, added in Emacs 30.

Schnouki · Jun 12, 2024 · 15f48bf · 15f48bf
1 parent 2e22793
commit 15f48bf
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -5,6 +5,7 @@
 ### New features
 
 * Add `corfu` support.
+* Add `window-tool-bar` support.
 
 ## 2.8 (2023-03-15)
 

diff --git a/zenburn-theme.el b/zenburn-theme.el
@@ -1693,6 +1693,16 @@ Also bind `class' to ((class color) (min-colors 89))."
    `(wl-highlight-summary-displaying-face ((t (:underline t :weight bold))))
 ;;;;; which-func-mode
    `(which-func ((t (:foreground ,zenburn-green+4))))
+;;;;; window-tool-bar-mode
+   `(window-tool-bar-button ((t (:foreground ,zenburn-fg
+                                 :background ,zenburn-bg
+                                 :box (:line-width -1 :style released-button)))))
+   `(window-tool-bar-button-hover ((t (:foreground ,zenburn-fg
+                                       :background ,zenburn-bg+1
+                                       :box (:line-width -1 :style released-button)))))
+   `(window-tool-bar-button-disabled ((t (:foreground ,zenburn-fg
+                                          :background ,zenburn-bg+3
+                                          :box (:line-width -1 :style released-button)))))
 ;;;;; xcscope
    `(cscope-file-face ((t (:foreground ,zenburn-yellow :weight bold))))
    `(cscope-function-face ((t (:foreground ,zenburn-cyan :weight bold))))