From feab6833ba8cdd8ad03895250c8c3221c888397f Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 22 Jul 2024 01:03:55 -0600 Subject: Remove erc object from tab name, underline mode name on header line --- .config/emacs/modules/bd--tabs.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to '.config/emacs/modules/bd--tabs.el') 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) " " -- cgit v1.2.3