diff options
| -rw-r--r-- | .emacs.local.d/modes/tabbar.el | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/.emacs.local.d/modes/tabbar.el b/.emacs.local.d/modes/tabbar.el index 4c81830..bde615e 100644 --- a/.emacs.local.d/modes/tabbar.el +++ b/.emacs.local.d/modes/tabbar.el @@ -1,27 +1,6 @@ -;; Inherit the face of `doom-modeline-panel` for better appearance -(set-face-attribute 'tab-bar-tab nil :inherit 'doom-modeline-panel :foreground nil :background nil) - -;; Totally customize the format of the tab bar name -(defun my/tab-bar-format (tab i) - (propertize - (format - (concat - (if (eq (car tab) 'current-tab) - "🔥 " "") - "%s") - (alist-get 'name tab)) - 'face (list (append - '(:foreground "#FFFFFF") - (if (eq (car tab) 'current-tab) - '(:box t) - '()))))) - (global-set-key (kbd "C-<next>") 'tab-bar-switch-to-next-tab) (global-set-key (kbd "C-<prior>") 'tab-bar-switch-to-prev-tab) -;; Replace the default tab bar function -(setq tab-bar-tab-name-format-function #'my/tab-bar-format) - (defun my/tab-bar-tab-name-function () "Return project name if in a project, or default tab-bar name if not. The default tab-bar name uses the buffer name." @@ -35,12 +14,6 @@ The default tab-bar name uses the buffer name." ;; Only show the tab bar if there are 2 or more tabs (setq tab-bar-show 1) -;; Customize the tab bar format to add the global mode line string -(setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator tab-bar-format-align-right tab-bar-format-global)) - -;; Make sure mode line text in the tab bar can be read -(set-face-attribute 'tab-bar nil :foreground "#FFFFFF") - (defun my/project-create-tab () (interactive) (tab-bar-new-tab) @@ -62,5 +35,4 @@ The default tab-bar name uses the buffer name." ;; Save the desktop session (desktop-save-mode 1) - (setq tab-bar-new-tab-choice "*dashboard*") |