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

Standardize interface for accessing mvti

Browse source
This commit is contained in:
Benson Chu 2025-05-06 18:12:54 -05:00
parent a584bcc210
commit 7645c4add5
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -35,6 +35,11 @@
(defvar mvt/info (make-hash-table))
(defun mvt/get-or-create-info (symbol)
(or (gethash symbol mvt/info)
(puthash symbol (make-instance 'multi-vterm-tab-info)
mvt/info)))
;; (setq mvt/info nil)
(defun mvt/format-buffer-name (tab-name index)
@ -76,7 +81,7 @@
(let* ((info (mvt/extract-info))
(tab-name (car info))
(start (cdr info))
(mvt-info (gethash (intern tab-name) mvt/info))
(mvt-info (mvt/get-or-create-info (intern tab-name)))
(max-num
(-->
(slot-value mvt-info 'max-number)
@ -98,8 +103,7 @@
(when mvt/minor-mode
(let ((info (mvt/extract-info)))
(push (cdr info)
(slot-value (gethash (intern (car info))
mvt/info)
(slot-value (mvt/get-or-create-info (intern (car info)))
'free-numbers))
(mvt/next))))
@ -120,9 +124,7 @@
(interactive)
(let* ((tab-name (alist-get 'name (tab-bar--current-tab)))
(tab-sym (intern tab-name))
(mvti (or (gethash tab-sym mvt/info)
(puthash tab-sym (make-instance 'multi-vterm-tab-info)
mvt/info))))
(mvti (mvt/get-or-create-info tab-sym)))
(let ((buffer (slot-value mvti 'recent-buffer)))
(switch-to-buffer
(or (and buffer