diff options
| author | bd <bdunahu@operationnull.com> | 2025-10-12 19:58:20 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-10-12 19:58:20 -0400 |
| commit | c28fba8d633b64ac2ec139d9b31baff74ce2efbe (patch) | |
| tree | aeee2233780ea5c5e1e7bf290fa01417cc764b2b | |
| parent | 0a4c9d3c2aa91eb88acf857d70cb770674c75191 (diff) | |
Add a toggle for the tab display
| -rw-r--r-- | .config/emacs/modules/bd--exwm.el | 1 | ||||
| -rw-r--r-- | .config/emacs/modules/bd--tabs.el | 7 |
2 files changed, 8 insertions, 0 deletions
diff --git a/.config/emacs/modules/bd--exwm.el b/.config/emacs/modules/bd--exwm.el index 45591b9..6ab7c10 100644 --- a/.config/emacs/modules/bd--exwm.el +++ b/.config/emacs/modules/bd--exwm.el @@ -61,6 +61,7 @@ that buffer." ([?\s-P] . bd/password) ([?\s-r] . exwm-reset) ([?\s-d] . toggle-window-dedicated) + ([?\s-t] . bd/toggle-tab-bar) ([?\s-q] . kill-current-buffer) ([?\s-x] . (lambda (command) (interactive (list (read-shell-command "s-x "))) diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el index 49549f7..3ab660e 100644 --- a/.config/emacs/modules/bd--tabs.el +++ b/.config/emacs/modules/bd--tabs.el @@ -28,6 +28,13 @@ (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) |