move tab-bar-global info to dedicated eww panel

3 files changed, 14 insertions, 36 deletions

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