[Top][All Lists]

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

master 0b9dc0a: * lisp/tab-line.el (tab-line-tab-selected): New face.

From: Juri Linkov
Subject: master 0b9dc0a: * lisp/tab-line.el (tab-line-tab-selected): New face.
Date: Sat, 2 Nov 2019 17:39:22 -0400 (EDT)

branch: master
commit 0b9dc0a8fe7ce66d5a79ffefd7ca9b42882e3fe4
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * lisp/tab-line.el (tab-line-tab-selected): New face.
    (tab-line-format): Use new face tab-line-tab-selected.
    ([tab-line]): Move tab-switching mouse wheel commands to S-keys.
 lisp/tab-line.el | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index cfb4223..0d3834a 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -77,6 +77,17 @@
   :version "27.1"
   :group 'tab-line-faces)
+(defface tab-line-tab-selected
+  '((default
+      :inherit tab-line-tab)
+    (((class color) (min-colors 88))
+     :background "grey85")
+    (t
+     :inverse-video t))
+  "Tab line face for tab in the selected window."
+  :version "27.1"
+  :group 'tab-line-faces)
 (defface tab-line-highlight
   '((default :inherit tab-line-tab))
   "Tab line face for highlighting."
@@ -335,7 +346,9 @@ variable `tab-line-tabs-function'."
                        tab ,tab
                        face ,(if (eq tab selected-buffer)
-                                 'tab-line-tab
+                                 (if (eq (selected-window) 
+                                     'tab-line-tab-selected
+                                   'tab-line-tab)
                        mouse-face tab-line-highlight))))
@@ -517,10 +530,10 @@ from the tab line."
 (global-set-key [tab-line wheel-up]   'tab-line-hscroll-left)
 (global-set-key [tab-line wheel-down] 'tab-line-hscroll-right)
-(global-set-key [tab-line C-mouse-4]    'tab-line-switch-to-prev-tab)
-(global-set-key [tab-line C-mouse-5]    'tab-line-switch-to-next-tab)
-(global-set-key [tab-line C-wheel-up]   'tab-line-switch-to-prev-tab)
-(global-set-key [tab-line C-wheel-down] 'tab-line-switch-to-next-tab)
+(global-set-key [tab-line S-mouse-4]    'tab-line-switch-to-prev-tab)
+(global-set-key [tab-line S-mouse-5]    'tab-line-switch-to-next-tab)
+(global-set-key [tab-line S-wheel-up]   'tab-line-switch-to-prev-tab)
+(global-set-key [tab-line S-wheel-down] 'tab-line-switch-to-next-tab)
 (provide 'tab-line)

reply via email to

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