From e037d2fb71b533b506469d78a58ff351194d6e36 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 13 Jan 2022 18:01:12 -0600
Subject: Whatever

---
 lisp/+tab-bar.el | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index 1dc1f68..1ee7606 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el
@@ -21,6 +21,14 @@
 (defvar +tab-bar-show-original nil
   "Original value of `tab-bar-show'.")
 
+(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))))
+
 (defun +tab-bar-tab-name-truncated-left ()
   "Generate the tab name from the buffer of the selected window.
 This is just like `tab-bar-tab-name-truncated', but truncates the
-- 
cgit 1.4.1-21-gabe81