pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Compact terminals

Browse source 
Gosh, that feels good.
This commit is contained in:
Benson Chu 2025-05-06 18:13:43 -05:00
parent de1606a4f1
commit c654a394d4
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/multi-vterm-tabs.el
View file

@ -69,6 +69,32 @@
(switch-to-buffer it)
it))))
(defun mvt/get-all-buffers (tab-name)
(let* ((tab-sym (intern tab-name))
(mvti (mvt/get-or-create-info tab-sym))
(max-num (slot-value mvti 'max-number))
buffs)
(dotimes (i max-num)
(awhen (get-buffer (mvt/format-buffer-name tab-name i))
(push it buffs)))
(reverse buffs)))
;; (mvt/get-all-buffers (alist-get 'name (tab-bar--current-tab)))
(defun mvt/compact-terminals (tab-name)
(interactive
(list (alist-get 'name (tab-bar--current-tab))))
(let* ((tab-sym (intern tab-name))
(mvti (mvt/get-or-create-info tab-sym))
(all-buffers (mvt/get-all-buffers tab-name))
(iter 0))
(dolist (buff all-buffers)
(with-current-buffer buff
(rename-buffer (mvt/format-buffer-name tab-name iter)))
(incf iter))
(setf (slot-value mvti 'free-numbers) nil
(slot-value mvti 'max-number) (1- iter))))
(defun mvt/extract-info ()
(when mvt/minor-mode
(let ((buffer-name (buffer-name)))