Remove erc object from tab name, underline mode name on header line

2 files changed, 8 insertions, 5 deletions

diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el
index 6357df7..1f0aa39 100644
--- a/.config/emacs/modules/bd--modeline.el
+++ b/.config/emacs/modules/bd--modeline.el
@@ -22,9 +22,13 @@
 
 (global-set-key (kbd "C-c ,") 'minor-mode-blackout-mode)
 
+(defface bd/underline-shadow
+  `((t :inherit shadow
+       :underline t))
+  "Shadow with an underline.")
 
 (defvar-local bd/buffer-identification-mode-line
-    '(:eval (format "%s " (propertize (buffer-name) 'face 'shadow)))
+    '(:eval (format "%s " (propertize (buffer-name) 'face 'bd/underline-shadow)))
   "Formats the modeline-buffer-name.")
 
 (defvar-local bd/modeline-buffer-file-state-icon
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el
index bb8f17e..e1c6fd2 100644
--- a/.config/emacs/modules/bd--tabs.el
+++ b/.config/emacs/modules/bd--tabs.el
@@ -9,6 +9,9 @@
       display-time-default-load-average nil)
 (display-time)
 
+(defun bd/get-mode-line-modes (buffer)
+  (with-current-buffer buffer
+    (format-mode-line (cdr mode-line-modes))))
 
 ;;;; turn tabs on, undo/redo mode
 (setq tab-bar-show t)
@@ -51,10 +54,6 @@
                                                  '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)
           " "