diff options
Diffstat (limited to '.config/emacs/modules/bd--tabs.el')
| -rw-r--r-- | .config/emacs/modules/bd--tabs.el | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el deleted file mode 100644 index 6d4f12f..0000000 --- a/.config/emacs/modules/bd--tabs.el +++ /dev/null @@ -1,43 +0,0 @@ -;;; -*- lexical-binding: t; -*- -;;; Commentary: -;;; Code: - - -(use-package tab-bar - :demand t - :config - (defun bd/get-mode-line-modes (buffer) - (with-current-buffer buffer - (format-mode-line (remove '(t erc-modified-channels-object) mode-line-modes)))) - (defun bd/tab-bar-name-function () - (concat (tab-bar-tab-name-current) - " " - (bd/get-mode-line-modes (window-buffer (minibuffer-selected-window))))) - (defun bd/toggle-tab-bar () - (interactive) - (setopt tab-bar-show (not tab-bar-show)) - ;; required to wait for the frame to update - (sit-for 0) - ;; dumb outer-gaps bug - (exwm-outer-gaps-apply)) - - (tab-bar-select-tab 1) - (tab-bar-mode) - (tab-bar-history-mode) - (setopt tab-bar-tab-name-function #'bd/tab-bar-name-function - tab-bar-show t - - tab-bar-select-restore-windows nil - - ;; remove useless gui elements - tab-bar-format - '(tab-bar-format-tabs) - tab-bar-close-button-show nil - tab-bar-auto-width-max nil - - ;; add useless text elements - tab-bar-tab-hints nil)) - - -(provide 'bd--tabs) -;;; bd--tabs.el ends here |
