From efc08126f7119569112b336f0cd73eefdf9737b5 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 18 Jan 2022 17:18:06 -0600
Subject: Um

---
 lisp/+tab-bar.el | 55 +++++++++++++++++++++++++------------------------------
 1 file changed, 25 insertions(+), 30 deletions(-)

(limited to 'lisp/+tab-bar.el')

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index 2e9198c..b11be2c 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el
@@ -22,7 +22,7 @@
   `((global menu-item ,(string-trim-right
                           (format-mode-line mode-line-misc-info))
 
-            ignore)))
+            ignore :help (discord-date-string))))
 
 (defvar +tab-bar-show-original nil
   "Original value of `tab-bar-show'.")
@@ -129,35 +129,30 @@ Used by `tab-bar-format-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)))))))
+(el-patch-feature tab-bar)
+(with-eval-after-load 'tab-bar
+  (el-patch-defun tab-bar--format-tab (tab i)
+    "Format TAB using its index I and return the result as a keymap."
+    (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)
+          ,(alist-get 'binding tab)
+          :help "Click to visit tab"))))
+     (when (alist-get 'close-binding tab)
+       `((,(if (eq (car tab) 'current-tab) 'C-current-tab (intern (format "C-tab-%i" i)))
+          menu-item ""
+          ,(alist-get 'close-binding tab)))))))
 
 
 ;; Emacs 27
-- 
cgit 1.4.1-21-gabe81