38 lines
1.5 KiB
EmacsLisp
38 lines
1.5 KiB
EmacsLisp
;;; ui/tabbar/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; This is here for reference. I don't use tabbar because it's unstable and not
|
|
;; very useful (all it does is show a buffer list on top of *every* window). I
|
|
;; find ivy (or helm) or even `buffer-menu' is better suited for this purpose.
|
|
|
|
(def-package! tabbar
|
|
:hook (doom-init-ui . tabbar-mode)
|
|
:config
|
|
(setq tabbar-use-images nil)
|
|
|
|
(defun +tabbar|disable-in-popups ()
|
|
(when (and +popup-buffer-mode tabbar-mode)
|
|
(tabbar-local-mode -1)
|
|
(setq-local header-line-format nil)))
|
|
(add-hook '+popup-buffer-mode-hook #'+tabbar|disable-in-popups)
|
|
|
|
(defun +tabbar-display-tab (tab)
|
|
"Return a label for TAB that resembles tabs in Atom."
|
|
(let ((label (if tabbar--buffer-show-groups
|
|
(format "[%s]" (tabbar-tab-tabset tab))
|
|
(format "%s" (tabbar-tab-value tab))))
|
|
(bar-color (face-background 'doom-modeline-bar nil t))
|
|
(bar-height 25)
|
|
(bar-width 3)
|
|
(selected-p (eq tab (tabbar-selected-tab (tabbar-current-tabset)))))
|
|
(concat (when (and (display-graphic-p) selected-p)
|
|
(+doom-modeline--make-xpm bar-color bar-height bar-width))
|
|
" "
|
|
(if tabbar-auto-scroll-flag
|
|
label
|
|
(tabbar-shorten
|
|
label (max 1 (/ (window-width)
|
|
(length (tabbar-view
|
|
(tabbar-current-tabset)))))))
|
|
" ")))
|
|
(setq tabbar-tab-label-function #'+tabbar-display-tab))
|