diff options
| author | bd <bdunahu@operationnull.com> | 2024-06-04 16:44:38 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-06-04 16:44:38 -0600 |
| commit | 4ad40229062f5c451ecaa2c971096db5a7c4e4ef (patch) | |
| tree | ed86b4ba1944423a183f5f55781fd0fa8053cf5f /.config/emacs | |
| parent | 6cb9d3eef852670a2252db8156d2d51ad8e8b26a (diff) | |
Make tabs display all opened buffers
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/modules/bd--tabs.el | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el index f85c226..a09cf33 100644 --- a/.config/emacs/modules/bd--tabs.el +++ b/.config/emacs/modules/bd--tabs.el @@ -23,13 +23,21 @@ ;;;; use project name if it exists (defun bd/tab-bar-name-function () - (let ((project (project-current))) - (if project - (car (last - (file-name-split - (directory-file-name - (project-root project))))) - (tab-bar-tab-name-current)))) + (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))) + ", ")) (setopt project-switch-commands '((project-find-file "Find file") |