From c28fba8d633b64ac2ec139d9b31baff74ce2efbe Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 12 Oct 2025 19:58:20 -0400 Subject: Add a toggle for the tab display --- .config/emacs/modules/bd--exwm.el | 1 + .config/emacs/modules/bd--tabs.el | 7 +++++++ 2 files changed, 8 insertions(+) (limited to '.config/emacs') 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) -- cgit v1.2.3