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
|
||
|
|
:config
|
||
|
|
(setq tabbar-use-images nil)
|
||
|
|
(tabbar-mode)
|
||
|
|
|
||
|
|
(defun +tabbar|disable-in-popups ()
|
||
|
|
(when tabbar-mode
|
||
|
|
(tabbar-local-mode -1)
|
||
|
|
(setq-local header-line-format nil)))
|
||
|
|
(add-hook 'doom-popup-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))
|