diff options
| author | bd <bdunahu@operationnull.com> | 2025-12-13 23:43:10 -0500 |
|---|---|---|
| committer | bdunahu <bdunahu@operationnull.com> | 2026-01-03 21:46:06 -0700 |
| commit | 288ccb3984c7cb46b67d0f6bf7fb6d53c5d7a2d3 (patch) | |
| tree | 47091f5aeede90e1364546e8122cd55e6d7f2971 /.config/emacs/modules/bd--tabs.el | |
| parent | df14036eb22ff9326c2806eb3f8cafc0d3042efa (diff) | |
guix: full refactor of configuration structure
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 |
