master 1660f58: Customizable tab-line-tabs-function and new buffer-local tab-line-mode.

[Juri Linkov]

branch: master
commit 1660f5875c6022ba4f342a53efadfc4d2deb150a
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    Customizable tab-line-tabs-function and new buffer-local tab-line-mode.
    
    * lisp/tab-line.el (tab-line-tabs-function): Turn defvar into defcustom
    with default of tab-line-tabs-window-buffers.
    (tab-line-tabs-mode-buffers): New function.
    (tab-line-tabs-window-buffers): Rename from tab-line-tabs.
    (tab-line-select-tab, tab-line-switch-to-prev-tab)
    (tab-line-switch-to-next-tab): Handle the value tab-line-tabs-window-buffers
    of tab-line-tabs-function specially.
    (tab-line-mode): Rename from global-tab-line-mode and change scope
    to buffer-local.
    (global-tab-line-mode): New globalized-minor-mode.
    (tab-line-mode--turn-on): New function.
    (tab-line-exclude-modes): New defcustom.
    (tab-line-exclude): New buffer-local variable.
    https://lists.gnu.org/archive/html/emacs-devel/2019-10/msg00988.html
    
    * lisp/dired.el (dired-mark-pop-up): Set tab-line-exclude to nil.
    Don't set tab-line-format.   (Bug#37699)
    * lisp/speedbar.el (speedbar-mode): Set tab-line-exclude to nil.
    Don't set tab-line-format.
---
 lisp/dired.el    |  2 +-
 lisp/speedbar.el |  2 +-
 lisp/tab-line.el | 91 ++++++++++++++++++++++++++++++++++++++++++++++----------
 3 files changed, 77 insertions(+), 18 deletions(-)

diff --git a/lisp/dired.el b/lisp/dired.el
index 75dfbc4..1d085e0 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3437,7 +3437,7 @@ argument or confirmation)."
          (if (eq (car files) t) (cdr files) files))
         (remove-text-properties (point-min) (point-max)
                                 '(mouse-face nil help-echo nil))
-        (setq tab-line-format nil))))))
+        (setq tab-line-exclude nil))))))
 
 (defun dired-format-columns-of-files (files)
   (let ((beg (point)))
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index c489d18..961a157 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1080,7 +1080,7 @@ in the selected file.
          dframe-mouse-click-function #'speedbar-click
          dframe-mouse-position-function #'speedbar-position-cursor-on-line)
     (setq-local tab-bar-mode nil)
-    (setq-local tab-line-format nil))
+    (setq tab-line-exclude nil))
   speedbar-buffer)
 
 (define-obsolete-function-alias 'speedbar-message 'dframe-message "24.4")
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 7dc6e2b..cfb4223 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -247,13 +247,37 @@ Reduce tab width proportionally to space taken by other 
tabs."
   "Maximum number of buffer tabs displayed in the tab line.
 If nil, no limit.")
 
-(defvar tab-line-tabs-function #'tab-line-tabs
+(defcustom tab-line-tabs-function #'tab-line-tabs-window-buffers
   "Function to get a list of tabs to display in the tab line.
 This function should return either a list of buffers whose names will
 be displayed, or just a list of strings to display in the tab line.
-By default, use function `tab-line-tabs'.")
+By default, use function `tab-line-tabs-window-buffers' that
+returns a list of buffers associated with the selected window.
+When `tab-line-tabs-mode-buffers', return a list of buffers
+with the same major mode as the current buffer."
+  :type '(choice (const :tag "Window buffers"
+                        tab-line-tabs-window-buffers)
+                 (const :tag "Same mode buffers"
+                        tab-line-tabs-mode-buffers)
+                 (function :tag "Function"))
+  :initialize 'custom-initialize-default
+  :set (lambda (sym val)
+         (set-default sym val)
+         (force-mode-line-update))
+  :group 'tab-line
+  :version "27.1")
 
-(defun tab-line-tabs ()
+(defun tab-line-tabs-mode-buffers ()
+  "Return a list of buffers with the same major mode with current buffer."
+  (let* ((window (selected-window))
+         (buffer (window-buffer window))
+         (mode (with-current-buffer buffer major-mode)))
+    (seq-sort-by #'buffer-name #'string<
+                 (seq-filter (lambda (b) (with-current-buffer b
+                                           (derived-mode-p mode)))
+                             (buffer-list)))))
+
+(defun tab-line-tabs-window-buffers ()
   "Return a list of tabs that should be displayed in the tab line.
 By default returns a list of window buffers, i.e. buffers previously
 shown in the same window where the tab line is displayed.
@@ -383,10 +407,12 @@ using the `previous-buffer' command."
          ;; Remove next-buffers from prev-buffers
          (prev-buffers (seq-difference prev-buffers next-buffers)))
     (cond
-     ((memq buffer next-buffers)
+     ((and (eq tab-line-tabs-function #'tab-line-tabs-window-buffers)
+           (memq buffer next-buffers))
       (dotimes (_ (1+ (seq-position next-buffers buffer)))
         (switch-to-next-buffer window)))
-     ((memq buffer prev-buffers)
+     ((and (eq tab-line-tabs-function #'tab-line-tabs-window-buffers)
+           (memq buffer prev-buffers))
       (dotimes (_ (1+ (seq-position prev-buffers buffer)))
         (switch-to-prev-buffer window)))
      (t
@@ -398,16 +424,26 @@ using the `previous-buffer' command."
 Its effect is the same as using the `previous-buffer' command
 (\\[previous-buffer])."
   (interactive (list last-nonmenu-event))
-  (switch-to-prev-buffer
-   (and (listp mouse-event) (posn-window (event-start mouse-event)))))
+  (let ((window (and (listp mouse-event) (posn-window (event-start 
mouse-event)))))
+    (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers)
+        (switch-to-prev-buffer window)
+      (with-selected-window (or window (selected-window))
+        (let ((buffer (cadr (memq (current-buffer)
+                                  (reverse (funcall 
tab-line-tabs-function))))))
+          (when buffer (switch-to-buffer buffer)))))))
 
 (defun tab-line-switch-to-next-tab (&optional mouse-event)
   "Switch to the next tab.
 Its effect is the same as using the `next-buffer' command
 (\\[next-buffer])."
   (interactive (list last-nonmenu-event))
-  (switch-to-next-buffer
-   (and (listp mouse-event) (posn-window (event-start mouse-event)))))
+  (let ((window (and (listp mouse-event) (posn-window (event-start 
mouse-event)))))
+    (if (eq tab-line-tabs-function #'tab-line-tabs-window-buffers)
+        (switch-to-next-buffer window)
+      (with-selected-window (or window (selected-window))
+        (let ((buffer (cadr (memq (current-buffer)
+                                  (funcall tab-line-tabs-function)))))
+          (when buffer (switch-to-buffer buffer)))))))
 
 
 (defcustom tab-line-close-tab-action 'bury-buffer
@@ -443,14 +479,37 @@ from the tab line."
 
 
 ;;;###autoload
-(define-minor-mode global-tab-line-mode
-  "Display window-local tab line."
+(define-minor-mode tab-line-mode
+  "Toggle display of window tab line in the buffer."
+  :lighter nil
+  (setq tab-line-format (when tab-line-mode '(:eval (tab-line-format)))))
+
+(defcustom tab-line-exclude-modes
+  '(completion-list-mode)
+  "List of major modes in which the tab line is not enabled."
+  :type '(repeat symbol)
+  :group 'tab-line
+  :version "27.1")
+
+;;;###autoload
+(defvar tab-line-exclude nil)
+;;;###autoload
+(make-variable-buffer-local 'tab-line-exclude)
+
+(defun tab-line-mode--turn-on ()
+  "Turn on `tab-line-mode'."
+  (unless (or (minibufferp)
+              (string-match-p "\\` " (buffer-name))
+              (memq major-mode tab-line-exclude-modes)
+              (get major-mode 'tab-line-exclude)
+              (buffer-local-value 'tab-line-exclude (current-buffer)))
+    (tab-line-mode 1)))
+
+;;;###autoload
+(define-globalized-minor-mode global-tab-line-mode
+  tab-line-mode tab-line-mode--turn-on
   :group 'tab-line
-  :type 'boolean
-  :global t
-  :init-value nil
-  (setq-default tab-line-format (when global-tab-line-mode
-                                  '(:eval (tab-line-format)))))
+  :version "27.1")
 
 
 (global-set-key [tab-line mouse-4]    'tab-line-hscroll-left)