Define new key binding to switch tabs

This commit is contained in:
Marcus Kammer 2024-10-25 16:50:35 +02:00
parent 94f441fa7e
commit 2c78bb99b0
Signed by: marcuskammer
GPG key ID: C374817BE285268F

View file

@ -183,6 +183,8 @@
:box '(:line-width (1 . 8) :style flat-button)) :box '(:line-width (1 . 8) :style flat-button))
(use-package tab-bar (use-package tab-bar
:bind (("M-[" . tab-bar-switch-to-prev-tab)
("M-]" . tab-bar-switch-to-next-tab))
:custom :custom
(tab-bar-auto-width nil) (tab-bar-auto-width nil)
(tab-bar-auto-width-max '(250 25)) (tab-bar-auto-width-max '(250 25))
@ -194,12 +196,10 @@
(set-face-attribute 'tab-bar nil (set-face-attribute 'tab-bar nil
:inherit 'mode-line-inactive :inherit 'mode-line-inactive
:background (face-attribute 'mode-line-inactive :background)) :background (face-attribute 'mode-line-inactive :background))
(set-face-attribute 'tab-bar-tab nil (set-face-attribute 'tab-bar-tab nil
:inherit 'mode-line :inherit 'mode-line
:foreground (face-attribute 'mode-line :foreground) :foreground (face-attribute 'mode-line :foreground)
:box '(:line-width 8 :style flat-button)) :box '(:line-width 8 :style flat-button))
(set-face-attribute 'tab-bar-tab-inactive nil (set-face-attribute 'tab-bar-tab-inactive nil
:inherit 'mode-line-inactive :inherit 'mode-line-inactive
:box '(:line-width 8 :style flat-button))) :box '(:line-width 8 :style flat-button)))