branch: externals/doric-themes
commit 7f98a25ef1e5952ae55340b1987ea3250c2dcaa7
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>

    Make tab-bar and tab-line selected tab more obvious
    
    This is consistent with how we style the active mode line with an
    extra box around it. But here we do not want a box because its upper
    part is invisible in full screen mode.
    
    This is in response to issue 3 by Pranshu Sharma:
    <https://github.com/protesilaos/doric-themes/issues/3>.
---
 doric-themes.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/doric-themes.el b/doric-themes.el
index d6be58b9f7..019ba2e58c 100644
--- a/doric-themes.el
+++ b/doric-themes.el
@@ -289,8 +289,6 @@ is either the `dark' or `light' symbol."
     read-multiple-choice-face
     rectangle-preview
     speedbar-highlight-face
-    tab-bar-tab-highlight
-    tab-line-highlight
     transient-enabled-suffix
     vertico-current))
 
@@ -309,8 +307,6 @@ is either the `dark' or `light' symbol."
     show-paren-match
     speedbar-separator-face
     substitute-match
-    tab-bar-tab
-    tab-line-tab-current
     tab-line-tab-inactive-alternate))
 
 (defconst doric-themes-intense-shadow-foreground-only-faces
@@ -1464,6 +1460,12 @@ is either the `dark' or `light' symbol."
             `(spacious-padding-subtle-mode-line-active ((t :foreground 
,fg-accent)))
             `(spacious-padding-subtle-mode-line-inactive ((t :foreground 
,bg-accent)))
 
+            `(tab-bar-tab ((t :underline ,fg-shadow-subtle :background 
,bg-shadow-intense :foreground ,fg-main)))
+            `(tab-bar-tab-highlight ((t :underline ,fg-accent :background 
,bg-accent :foreground ,fg-accent)))
+
+            `(tab-line-tab-current ((t :underline ,fg-shadow-subtle 
:background ,bg-shadow-intense :foreground ,fg-main)))
+            `(tab-line-highlight ((t :underline ,fg-accent :background 
,bg-accent :foreground ,fg-accent)))
+
             '(telega-webpage-fixed ((t :inherit fixed-pitch)))
             '(telega-webpage-preformatted ((t :inherit fixed-pitch)))
 

Reply via email to