Add unworking sketch for fluid-width tabs

author: Case Duckworth 2022-01-17 17:13:10 -0600
committer: Case Duckworth 2022-01-17 17:13:10 -0600
commit: 4236a39dfb897c26edfde061f79ea4b397780df7 (patch)
tree: 00060339fb8e6c5d3439b3db3c87627822592e5c
parent: Fix function calls (diff)
download: emacs-4236a39dfb897c26edfde061f79ea4b397780df7.tar.gz
emacs-4236a39dfb897c26edfde061f79ea4b397780df7.zip
1 files changed, 46 insertions, 0 deletions
diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index ffbdd70..2e9198c 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el

@@ -37,6 +37,52 @@
                (file-name-nondirectory tab-file-name)
              (+tab-bar-tab-name-truncated-left)))))
+;;; FIXME this doesn't work...
+;; (defvar +tab-bar-tab-min-width 8
+;;   "Minimum width of a tab on the tab bar.")
+;; (defvar +tab-bar-tab-max-width 24
+;;   "Maximum width of a tab on the tab bar.")
+;; (defun +tab-bar-fluid-calculate-width ()
+;;   "Calculate the width of each tab in the tab-bar."
+;;   (let* ((tab-bar-list (cdr (tab-bar-make-keymap-1)))
+;;          (tab-bar-avail-width (frame-width))
+;;          (tab-bar-tab-count (length (tab-bar-tabs)))
+;;          (tab-bar-close-button-char-width 1)
+;;          (tab-bar-add-tab-button-char-width 1)
+;;          (tab-bar-total-width
+;;           (length (mapconcat
+;;                    (lambda (el)
+;;                      (when-let ((str (car-safe (cdr-safe (cdr-safe el)))))
+;;                        (substring-no-properties (eval str))))
+;;                    tab-bar-list)))
+;;          (tab-bar-total-tab-width
+;;           (+ (* tab-bar-tab-count tab-bar-close-button-char-width)
+;;              tab-bar-add-tab-button-char-width
+;;              (length (mapconcat
+;;                       (lambda (el)
+;;                         (substring-no-properties (alist-get 'name el)))
+;;                       (tab-bar-tabs)))))
+;;          (tab-bar-total-nontab-width (- tab-bar-total-width
+;;                                         tab-bar-total-tab-width)))
+;;     (min +tab-bar-tab-max-width
+;;          (max +tab-bar-tab-min-width
+;;               (/ (- tab-bar-avail-width
+;;                     tab-bar-total-tab-width
+;;                     tab-bar-total-nontab-width)
+;;                  tab-bar-tab-count)))))
+;; (defun +tab-bar-fluid-width ()
+;;   "Generate the tab name to fluidly fit in the given space."
+;;   (let* ((tab-file-name (buffer-file-name (window-buffer
+;;                                            (minibuffer-selected-window)))))
+;;     (format (format " %%s%%%ds" (+tab-bar-fluid-calculate-width))
+;;             (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
author	Case Duckworth	2022-01-17 17:13:10 -0600
committer	Case Duckworth	2022-01-17 17:13:10 -0600
commit	4236a39dfb897c26edfde061f79ea4b397780df7 (patch)
tree	00060339fb8e6c5d3439b3db3c87627822592e5c
parent	Fix function calls (diff)
download	emacs-4236a39dfb897c26edfde061f79ea4b397780df7.tar.gz emacs-4236a39dfb897c26edfde061f79ea4b397780df7.zip

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index ffbdd70..2e9198c 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el
@@ -37,6 +37,52 @@
37	(file-name-nondirectory tab-file-name)	37	(file-name-nondirectory tab-file-name)
38	(+tab-bar-tab-name-truncated-left)))))	38	(+tab-bar-tab-name-truncated-left)))))
39		39
		40	;;; FIXME this doesn't work...
		41	;; (defvar +tab-bar-tab-min-width 8
		42	;; "Minimum width of a tab on the tab bar.")
		43
		44	;; (defvar +tab-bar-tab-max-width 24
		45	;; "Maximum width of a tab on the tab bar.")
		46
		47	;; (defun +tab-bar-fluid-calculate-width ()
		48	;; "Calculate the width of each tab in the tab-bar."
		49	;; (let* ((tab-bar-list (cdr (tab-bar-make-keymap-1)))
		50	;; (tab-bar-avail-width (frame-width))
		51	;; (tab-bar-tab-count (length (tab-bar-tabs)))
		52	;; (tab-bar-close-button-char-width 1)
		53	;; (tab-bar-add-tab-button-char-width 1)
		54	;; (tab-bar-total-width
		55	;; (length (mapconcat
		56	;; (lambda (el)
		57	;; (when-let ((str (car-safe (cdr-safe (cdr-safe el)))))
		58	;; (substring-no-properties (eval str))))
		59	;; tab-bar-list)))
		60	;; (tab-bar-total-tab-width
		61	;; (+ (* tab-bar-tab-count tab-bar-close-button-char-width)
		62	;; tab-bar-add-tab-button-char-width
		63	;; (length (mapconcat
		64	;; (lambda (el)
		65	;; (substring-no-properties (alist-get 'name el)))
		66	;; (tab-bar-tabs)))))
		67	;; (tab-bar-total-nontab-width (- tab-bar-total-width
		68	;; tab-bar-total-tab-width)))
		69	;; (min +tab-bar-tab-max-width
		70	;; (max +tab-bar-tab-min-width
		71	;; (/ (- tab-bar-avail-width
		72	;; tab-bar-total-tab-width
		73	;; tab-bar-total-nontab-width)
		74	;; tab-bar-tab-count)))))
		75
		76	;; (defun +tab-bar-fluid-width ()
		77	;; "Generate the tab name to fluidly fit in the given space."
		78	;; (let* ((tab-file-name (buffer-file-name (window-buffer
		79	;; (minibuffer-selected-window)))))
		80	;; (format (format " %%s%%%ds" (+tab-bar-fluid-calculate-width))
		81	;; (if tab-file-name
		82	;; (file-name-nondirectory tab-file-name)
		83	;; (+tab-bar-tab-name-truncated-left))
		84	;; " ")))
		85
40	(defun +tab-bar-tab-name-truncated-left ()	86	(defun +tab-bar-tab-name-truncated-left ()
41	"Generate the tab name from the buffer of the selected window.	87	"Generate the tab name from the buffer of the selected window.
42	This is just like `tab-bar-tab-name-truncated', but truncates the	88	This is just like `tab-bar-tab-name-truncated', but truncates the