Move major mode to tab name

2 files changed, 11 insertions, 3 deletions

diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el
index baa1751..6357df7 100644
--- a/.config/emacs/modules/bd--modeline.el
+++ b/.config/emacs/modules/bd--modeline.el
@@ -73,7 +73,6 @@
               (list
                mode-line-front-space
                bd/buffer-identification-mode-line
-               mode-line-modes
                bd/modeline-buffer-file-state-icon
                bd/vc-mode-line
                bd/line-position))
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el
index 089c852..bb8f17e 100644
--- a/.config/emacs/modules/bd--tabs.el
+++ b/.config/emacs/modules/bd--tabs.el
@@ -5,9 +5,9 @@
 
 ;;;; time and date
 (require 'time)
-(setq display-time-format "%m/%d/%y %H:%M (%a)"
+(setq display-time-format "  %m/%d %H:%M"
       display-time-default-load-average nil)
-;; (display-time)
+(display-time)
 
 
 ;;;; turn tabs on, undo/redo mode
@@ -51,6 +51,15 @@
                                                  'nomini)))
              ", "))
 
+(defun bd/get-mode-line-modes (buffer)
+  (with-current-buffer buffer
+    (format-mode-line 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)))))
+
 (setopt project-switch-commands
         '((project-find-file "Find file")
           (project-find-regexp "Find regexp")