diff options
Diffstat (limited to '.config/emacs/modules/bd--tabs.el')
| -rw-r--r-- | .config/emacs/modules/bd--tabs.el | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el index e1c6fd2..3ef18d8 100644 --- a/.config/emacs/modules/bd--tabs.el +++ b/.config/emacs/modules/bd--tabs.el @@ -11,7 +11,7 @@ (defun bd/get-mode-line-modes (buffer) (with-current-buffer buffer - (format-mode-line (cdr mode-line-modes)))) + (format-mode-line (remove '(t erc-modified-channels-object) mode-line-modes)))) ;;;; turn tabs on, undo/redo mode (setq tab-bar-show t) @@ -35,25 +35,6 @@ (setopt tab-bar-tab-hints nil tab-bar-select-tab-modifiers '(meta)) - -;; use project name if it exists -(defun bd/tab-bar-name-function () - (mapconcat (lambda (buffer) - (let* ((file (buffer-file-name buffer)) - (project (and file (project-current - nil - (file-name-directory (buffer-file-name buffer)))))) - (if project - (car (last - (file-name-split - (directory-file-name - (project-root project))))) - (tab-bar-tab-name-current)))) - (delete-dups (mapcar #'window-buffer - (window-list-1 (frame-first-window) - 'nomini))) - ", ")) - (defun bd/tab-bar-name-function () (concat (tab-bar-tab-name-current) " " |