home

commit ac755e82c4b49618798a2d644ec892d78761f822
parent 13d3bbce7ae1101d175b8d9a2edd7841d91c986a
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Tue, 14 Apr 2020 15:40:10 +0200

emacs: add tab-bar support for shortbrain themes

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
M
tools/emacs/lisp/shortbrain-light-theme.el
 | 
3
+++
M
tools/emacs/lisp/shortbrain-theme.el
 | 
4
++++

2 files changed, 7 insertions(+), 0 deletions(-)
diff --git a/tools/emacs/lisp/shortbrain-light-theme.el b/tools/emacs/lisp/shortbrain-light-theme.el
@@ -193,6 +193,9 @@
                                               :box (:line-width -1 :color ,inactive-bg)))))
    `(nlinum-relative-current-face ((,class (:foreground ,frame-fg :background ,default-bg))))
    `(vertical-border ((,class (:foreground ,border-fg :background ,default-bg))))
+   `(tab-bar ((,class (:background ,default-bg))))
+   `(tab-bar-tab ((,class (:background ,default-bg :inherit shadow :weight bold))))
+   `(tab-bar-tab-inactive ((,class (:background ,inactive-bg :inherit shadow :weight normal))))
 
    ;; Highlighting
    `(highlight ((,class (:foreground ,highlight-fg :background ,highlight-bg))))
diff --git a/tools/emacs/lisp/shortbrain-theme.el b/tools/emacs/lisp/shortbrain-theme.el
@@ -99,6 +99,7 @@
       (default-bg               (shortbrain-theme-color 'grey-900))
       (minor-fg                 (shortbrain-theme-color 'grey-700))
       (inactive-fg              (shortbrain-theme-color 'grey-600))
+      (inactive-bg              (shortbrain-theme-color 'grey-800))
       (border-fg                (shortbrain-theme-color 'grey-850))
       (frame-fg                 (shortbrain-theme-color 'grey-500))
       (cursor-fg                (shortbrain-theme-color 'grey-500))
@@ -167,6 +168,9 @@
                                               :box (:line-width -1 :color ,default-bg)))))
    `(nlinum-relative-current-face ((,class (:foreground ,frame-fg :background ,default-bg))))
    `(vertical-border ((,class (:foreground ,border-fg :background ,default-bg))))
+   `(tab-bar ((,class (:background ,default-bg))))
+   `(tab-bar-tab ((,class (:background ,default-bg :inherit shadow :weight bold))))
+   `(tab-bar-tab-inactive ((,class (:background ,inactive-bg :inherit shadow :weight normal))))
 
    ;; Highlighting
    `(highlight ((,class (:foreground ,highlight-fg :background ,highlight-bg))))