Remove quiet from kernel arguments

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)
           " "