diff options
| author | bd <bdunahu@operationnull.com> | 2024-07-22 01:03:55 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-07-22 01:03:55 -0600 |
| commit | feab6833ba8cdd8ad03895250c8c3221c888397f (patch) | |
| tree | 756e148d686902dd798bd53c207aa99a0fc530ab /.config/emacs/modules/bd--tabs.el | |
| parent | 37304c54ec70caa85a83b59123e42d31490b4008 (diff) | |
Remove erc object from tab name, underline mode name on header line
Diffstat (limited to '.config/emacs/modules/bd--tabs.el')
| -rw-r--r-- | .config/emacs/modules/bd--tabs.el | 7 |
1 files changed, 3 insertions, 4 deletions
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) " " |