1 files changed, 20 insertions, 0 deletions

@@ -21,6 +21,26 @@
 (defvar +tab-bar-show-original nil
   "Original value of `tab-bar-show'.")
 
+(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
+name to the left."
+  (let* ((tab-name (buffer-name (window-buffer (minibuffer-selected-window))))
+        (ellipsis (cond
+                   (tab-bar-tab-name-ellipsis)
+                   ((char-displayable-p ?…) "…")
+                   ("...")))
+        (l-ell (length ellipsis))
+        (l-name (length tab-name)))
+    (if (< (length tab-name) tab-bar-tab-name-truncated-max)
+        tab-name
+      (propertize (concat
+                   (when (> (+ l-name l-ell) tab-bar-tab-name-truncated-max)
+                     ellipsis)
+                   (truncate-string-to-width tab-name l-name
+                    (max 0 (- l-name tab-bar-tab-name-truncated-max l-ell))))
+                  'help-echo tab-name))))
+
 
 ;; Emacs 27