分享一下我的 tab-bar 定制

Emacs-general
1

其实 Emacs 自带的 tab-bar 可定制性挺强的。但是默认情况下的 tab-bar 有点丑，而且好像很多人还不知道怎么自定义，所以分享一下我的配置

(use-package tab-bar
  :hook (window-setup . tab-bar-mode)
  :config
  (setq tab-bar-separator ""
        tab-bar-new-tab-choice "*scratch*"
        tab-bar-tab-name-truncated-max 20
        tab-bar-auto-width nil
        tab-bar-close-button-show nil
        tab-bar-tab-hints t)

  ;; 使用 super-1 super-2 ... 来切换 tab
  (customize-set-variable 'tab-bar-select-tab-modifiers '(super))

  ;; 自动截取 tab name，并且添加在每个 tab 上添加数字，方便用快捷键切换
  (setq tab-bar-tab-name-function
        (lambda () (let* ((raw-tab-name (buffer-name (window-buffer (minibuffer-selected-window))))
                     (count (length (window-list-1 nil 'nomini)))
                     (truncated-tab-name (if (< (length raw-tab-name)
                                                tab-bar-tab-name-truncated-max)
                                             raw-tab-name
                                           (truncate-string-to-width raw-tab-name
                                                                     tab-bar-tab-name-truncated-max
                                                                     nil nil tab-bar-tab-name-ellipsis))))
                (if (> count 1)
                    (concat truncated-tab-name "(" (number-to-string count) ")")
                  truncated-tab-name))))

  ;; 给 tab 两边加上空格，更好看
  (setq tab-bar-tab-name-format-function
        (lambda (tab i)
          (let ((face (funcall tab-bar-tab-face-function tab)))
            (concat
             (propertize " " 'face face)
             (propertize (number-to-string i) 'face `(:inherit ,face :weight ultra-bold :underline t))
             (propertize (concat " " (alist-get 'name tab) " ") 'face face)))))

  ;; 我把 meow 的 indicator 也放在 tab-bar 上
  (setq tab-bar-format '(meow-indicator  tab-bar-format-tabs))
  (tab-bar--update-tab-bar-lines)

  ;; WORKAROUND: update tab-bar for daemon
  (when (daemonp)
    (add-hook 'after-make-frame-functions
              #'(lambda (&rest _) (force-mode-line-update))))
  )

在上面的 tab-bar-format 中还可以放更多的 indicator，可以自己加入，比如我还放了 org-pomodoro 的提醒

image
image1376×1326 236 KB

13 个赞
2

我也分享下我的配置：

(use-package tab-bar
  :elpaca nil
  :custom
  (tab-bar-select-tab-modifiers '(meta))
  (tab-bar-new-tab-to 'rightmost)
  (tab-bar-show 1) ;; hide bar if <= 1 tabs open
  (tab-bar-close-button-show nil) ;; hide tab close / X button
  (tab-bar-new-tab-choice "*dashboard*") ;; buffer to show in new tabs
  (tab-bar-tab-hints t) ;; show tab numbers
  (tab-bar-format '(tab-bar-format-menu-bar tab-bar-format-tabs tab-bar-separator))
  ;; don't use :custom-face
  :config
  (tab-bar-mode 1)                           ;; enable tab bar
  (custom-set-faces
    '(tab-bar ((t (:inherit mode-line :box nil))))
    '(tab-bar-tab ((t (:inherit mode-line :foreground "gainsboro" :box nil))))
    '(tab-bar-tab-inactive ((t (:inherit mode-line-inactive :foreground "DarkGray" :box nil))))))

image
image1484×52 8.73 KB

1 个赞
3

我的可能更简单，直接用的 tabsapces

1 个赞
4

我在exwm里用的长这样

tab-bar
tab-bar2210×38 46.1 KB

1 个赞
5

感謝分享! 我現在是用 centaur-tabs. 哪天有空再來試試看自帶的 tab-bar. :thinking:

1 个赞
6

centaur-tabs 平替应该是 tab-line？

7

我不知道有 tab-line-mode. :joy: 看了一下, 是沒錯!

8

这名字也曾经让我很confused :joy:

1 个赞