From 4d6171844a8b6971c76be8054aa56b65685317fd Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 Oct 2025 16:49:18 -0400 Subject: move tab-bar-global info to dedicated eww panel --- .config/emacs/init.el | 2 +- .config/emacs/modules/bd--exwm.el | 22 ++++------------------ .config/emacs/modules/bd--modeline.el | 8 ++++++++ .config/emacs/modules/bd--tabs.el | 20 ++------------------ 4 files changed, 15 insertions(+), 37 deletions(-) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index c46441a..ed97088 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -113,8 +113,8 @@ (require 'bd--notes) (require 'bd--emms) (require 'bd--modeline) -(require 'bd--themes) (require 'bd--exwm) +(require 'bd--themes) ;;; init.el ends here diff --git a/.config/emacs/modules/bd--exwm.el b/.config/emacs/modules/bd--exwm.el index 6ab7c10..6542241 100644 --- a/.config/emacs/modules/bd--exwm.el +++ b/.config/emacs/modules/bd--exwm.el @@ -9,7 +9,7 @@ (require 'exwm-randr) (setopt exwm-randr-workspace-monitor-plist '(0 "HDMI-1" 1 "eDP-1") - exwm-workspace-number 2) + exwm-workspace-number 10) (add-hook 'exwm-randr-screen-change-hook (lambda () (start-process-shell-command @@ -97,7 +97,9 @@ that buffer." (use-package exwm-outer-gaps :defer 1 :config - (exwm-outer-gaps-mode 1)) + (setopt exwm-outer-gaps-mode 1 + exwm-outer-gaps-width 10) + (exwm-outer-gaps-apply)) (use-package server :defer 1 @@ -108,21 +110,5 @@ that buffer." (setopt tab-bar-select-tab-modifiers '(super)) -(defvar new-mode-line nil) -(defun set-new-mode-line () - (setq new-mode-line - (replace-regexp-in-string - "%" "%%" - (format "[%s] [%s]" - (shell-command-to-string "/home/bdunahu/.local/bin/mail-string 2>/dev/null") - (shell-command-to-string "/home/bdunahu/.local/bin/t1-string 2>/dev/null"))))) - -(defvar-local bd/external-mode-line - '(:eval (when new-mode-line - new-mode-line))) - -(run-with-timer t 30 #'set-new-mode-line) -(add-to-list 'global-mode-string bd/external-mode-line) - (provide 'bd--exwm) ;;; bd--exwm.el ends here diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el index 7fc4892..2b38459 100644 --- a/.config/emacs/modules/bd--modeline.el +++ b/.config/emacs/modules/bd--modeline.el @@ -39,6 +39,11 @@ 'help-echo "mouse-1: Project menu" 'local-map project-mode-line-map)))))) +(defvar-local bd/global-mode-string + '(:eval (when (mode-line-window-selected-p) + global-mode-string)) + "Displays the global mode string only on the current window.") + (column-number-mode 1) (setopt mode-line-position-column-line-format '("%l:%c") mode-line-percent-position nil) @@ -63,6 +68,7 @@ (dolist (construct '(bd/buffer-identification-mode-line bd/project-mode-line bd/vc-mode-line + bd/global-mode-string bd/line-position bd/modeline-window-dedicated)) (put construct 'risky-local-variable t)) @@ -84,6 +90,8 @@ mode-line-mule-info mode-line-modified mode-line-front-space + bd/global-mode-string + mode-line-front-space )) diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el index 3ab660e..320acae 100644 --- a/.config/emacs/modules/bd--tabs.el +++ b/.config/emacs/modules/bd--tabs.el @@ -3,21 +3,6 @@ ;;; Code: -(use-package time - :demand t - :init - (display-time) - :config - (setopt display-time-format " [%m/%d %H:%M] " - display-time-default-load-average nil)) - -(use-package battery - :demand t - :init - (display-battery-mode) - :config - (setopt battery-update-interval 90)) - (use-package tab-bar :demand t :config @@ -40,15 +25,14 @@ (tab-bar-mode) (tab-bar-history-mode) (setopt tab-bar-tab-name-function #'bd/tab-bar-name-function - tab-bar-show t + tab-bar-show nil tab-bar-select-restore-windows nil ;; remove useless gui elements tab-bar-format '(tab-bar-format-tabs - tab-bar-format-align-right - tab-bar-format-global) + tab-bar-format-align-right) tab-bar-close-button-show nil tab-bar-auto-width-max nil -- cgit v1.2.3