Created
April 14, 2024 08:34
-
-
Save satran/95195fc86289dcf05cc8f66c363edb36 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; Taken from https://andreyor.st/posts/2020-05-10-making-emacs-tabs-look-like-in-atom/ | |
;; https://github.com/andreyorst/dotfiles/blob/740d346088ce5a51804724659a895d13ed574f81/.config/emacs/README.org#tabline | |
(defun my/set-tab-theme () | |
(let ((bg (face-attribute 'mode-line :background)) | |
(fg (face-attribute 'default :foreground)) | |
(hg (face-attribute 'default :background)) | |
(base (face-attribute 'mode-line :background)) | |
(box-width (/ (line-pixel-height) 4))) | |
(set-face-attribute 'tab-line nil | |
:background base | |
:foreground fg | |
:height 0.8 | |
:inherit nil | |
:box (list :line-width -1 :color base) | |
) | |
(set-face-attribute 'tab-line-tab nil | |
:foreground fg | |
:background bg | |
:weight 'normal | |
:inherit nil | |
:box (list :line-width box-width :color bg)) | |
(set-face-attribute 'tab-line-tab-inactive nil | |
:foreground fg | |
:background base | |
:weight 'normal | |
:inherit nil | |
:box (list :line-width box-width :color base)) | |
(set-face-attribute 'tab-line-highlight nil | |
:foreground fg | |
:background hg | |
:weight 'normal | |
:inherit nil | |
:box (list :line-width box-width :color hg)) | |
(set-face-attribute 'tab-line-tab-current nil | |
:foreground fg | |
:background hg | |
:weight 'normal | |
:inherit nil | |
:box (list :line-width box-width :color hg)))) | |
(defun my/tab-line-name-buffer (buffer &rest _buffers) | |
"Create name for tab with padding and truncation. | |
If buffer name is shorter than `tab-line-tab-max-width' it gets | |
centered with spaces, otherwise it is truncated, to preserve | |
equal width for all tabs. This function also tries to fit as | |
many tabs in window as possible, so if there are no room for tabs | |
with maximum width, it calculates new width for each tab and | |
truncates text if needed. Minimal width can be set with | |
`tab-line-tab-min-width' variable." | |
(with-current-buffer buffer | |
(let* ((window-width (window-width (get-buffer-window))) | |
(tab-amount (length (tab-line-tabs-window-buffers))) | |
(window-max-tab-width (if (>= (* (+ tab-line-tab-max-width 3) tab-amount) window-width) | |
(/ window-width tab-amount) | |
tab-line-tab-max-width)) | |
(tab-width (- (cond ((> window-max-tab-width tab-line-tab-max-width) | |
tab-line-tab-max-width) | |
((< window-max-tab-width tab-line-tab-min-width) | |
tab-line-tab-min-width) | |
(t window-max-tab-width)) | |
3)) ;; compensation for ' x ' button | |
(buffer-name (string-trim (buffer-name))) | |
(name-width (length buffer-name))) | |
(if (>= name-width tab-width) | |
(concat " " (truncate-string-to-width buffer-name (- tab-width 2)) "…") | |
(let* ((padding (make-string (+ (/ (- tab-width name-width) 2) 1) ?\s)) | |
(buffer-name (concat padding buffer-name))) | |
(concat buffer-name (make-string (- tab-width (length buffer-name)) ?\s))))))) | |
(defun tab-line-close-tab (&optional e) | |
"Close the selected tab. | |
If tab is presented in another window, close the tab by using | |
`bury-buffer` function. If tab is unique to all existing | |
windows, kill the buffer with `kill-buffer` function. Lastly, if | |
no tabs left in the window, it is deleted with `delete-window` | |
function." | |
(interactive "e") | |
(let* ((posnp (event-start e)) | |
(window (posn-window posnp)) | |
(buffer (get-pos-property 1 'tab (car (posn-string posnp))))) | |
(with-selected-window window | |
(let ((tab-list (tab-line-tabs-window-buffers)) | |
(buffer-list (flatten-list | |
(seq-reduce (lambda (list window) | |
(select-window window t) | |
(cons (tab-line-tabs-window-buffers) list)) | |
(window-list) nil)))) | |
(select-window window) | |
(if (> (seq-count (lambda (b) (eq b buffer)) buffer-list) 1) | |
(progn | |
(if (eq buffer (current-buffer)) | |
(bury-buffer) | |
(set-window-prev-buffers window (assq-delete-all buffer (window-prev-buffers))) | |
(set-window-next-buffers window (delq buffer (window-next-buffers)))) | |
(unless (cdr tab-list) | |
(ignore-errors (delete-window window)))) | |
(and (kill-buffer buffer) | |
(unless (cdr tab-list) | |
(ignore-errors (delete-window window))))))))) | |
(unless (version< emacs-version "27") | |
(use-package tab-line | |
:ensure nil | |
:hook (after-init . global-tab-line-mode) | |
:config | |
(defcustom tab-line-tab-min-width 10 | |
"Minimum width of a tab in characters." | |
:type 'integer | |
:group 'tab-line) | |
(defcustom tab-line-tab-max-width 30 | |
"Maximum width of a tab in characters." | |
:type 'integer | |
:group 'tab-line) | |
(setq tab-line-close-button-show t | |
tab-line-new-button-show nil | |
tab-line-separator "" | |
tab-line-tab-name-function #'my/tab-line-name-buffer | |
tab-line-right-button (propertize (if (char-displayable-p ?▶) " ▶ " " > ") | |
'keymap tab-line-right-map | |
'mouse-face 'tab-line-highlight | |
'help-echo "Click to scroll right") | |
tab-line-left-button (propertize (if (char-displayable-p ?◀) " ◀ " " < ") | |
'keymap tab-line-left-map | |
'mouse-face 'tab-line-highlight | |
'help-echo "Click to scroll left") | |
tab-line-close-button (propertize (if (char-displayable-p ?×) " × " " x ") | |
'keymap tab-line-tab-close-map | |
'mouse-face 'tab-line-close-highlight | |
'help-echo "Click to close tab")) | |
(my/set-tab-theme) | |
;;(dolist (mode '(ediff-mode process-menu-mode term-mode vterm-mode)) | |
;;(add-to-list 'tab-line-exclude-modes mode)) | |
(dolist (mode '(ediff-mode process-menu-mode)) | |
(add-to-list 'tab-line-exclude-modes mode)) | |
)) | |
(global-tab-line-mode t) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment