Make tab bar more better

1 files changed, 62 insertions, 4 deletions

@@ -24,10 +24,12 @@
 (defun +tab-bar-basename ()
   "Generate the tab name from the basename of the buffer of the
   selected window."
-  (let* ((tab-file-name (buffer-file-name (window-buffer (minibuffer-selected-window)))))
-    (if tab-file-name
-        (file-name-nondirectory tab-file-name)
-      (+tab-bar-tab-name-truncated-left))))
+  (let* ((tab-file-name (buffer-file-name (window-buffer
+                                           (minibuffer-selected-window)))))
+    (concat " "
+            (if tab-file-name
+                (file-name-nondirectory tab-file-name)
+              (+tab-bar-tab-name-truncated-left)))))
 
 (defun +tab-bar-tab-name-truncated-left ()
   "Generate the tab name from the buffer of the selected window.
@@ -50,6 +52,62 @@ name to the left."
                   'help-echo tab-name))))
 
 
+;;; Menu bar
+;; stole from https://github.com/emacs-mirror/emacs/blob/master/lisp/tab-bar.el
+
+(defun +tab-bar-menu-bar (event)
+  "Pop up the same menu as displayed by the menu bar.
+Used by `tab-bar-format-menu-bar'."
+  (interactive "e")
+  (let ((menu (make-sparse-keymap (propertize "Menu Bar" 'hide t))))
+    (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
+    (map-keymap (lambda (key binding)
+                  (when (consp binding)
+                    (define-key-after menu (vector key)
+                      (copy-sequence binding))))
+                (menu-bar-keymap))
+    (popup-menu menu event)))
+
+(defun +tab-bar-format-menu-bar ()
+  "Produce the Menu button for the tab bar that shows the menu bar."
+  `((menu-bar menu-item (propertize "Ɛ " 'face 'tab-bar-tab-inactive)
+              +tab-bar-menu-bar :help "Menu Bar")))
+
+
+;;; Tab bar format tabs
+
+(require 'el-patch)
+
+(el-patch-defun tab-bar--format-tab (tab i)
+  (append
+   (el-patch-remove
+     `((,(intern (format "sep-%i" i)) menu-item ,(tab-bar-separator) ignore)))
+   (cond
+    ((eq (car tab) 'current-tab)
+     `((current-tab
+        menu-item
+        ,(funcall tab-bar-tab-name-format-function tab i)
+        ignore
+        :help "Current tab")))
+    (t
+     `((,(intern (format "tab-%i" i))
+        menu-item
+        ,(funcall tab-bar-tab-name-format-function tab i)
+        ,(or
+          (alist-get 'binding tab)
+          `(lambda ()
+             (interactive)
+             (tab-bar-select-tab ,i)))
+        :help "Click to visit tab"))))
+   `((,(if (eq (car tab) 'current-tab) 'C-current-tab (intern (format "C-tab-%i" i)))
+      menu-item ""
+      ,(or
+        (alist-get 'close-binding tab)
+        `(lambda ()
+           (interactive)
+           (tab-bar-close-tab ,i)))))))
+
+
 ;; Emacs 27
 
 (defun +tab-bar-misc-info-27 (output &rest _)