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

There's a bug in the original implementation

Browse source
This commit is contained in:
Benson Chu 2025-07-08 09:39:59 -05:00
parent 7ce0237fd1
commit cb3018c8f3
1 changed files with 18 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -70,14 +70,24 @@
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)))
(->> (buffer-list)
(remove-if-not
(lambda (buff)
(with-current-buffer buff
(and (eq major-mode 'vterm-mode)
(string-match-p
(rx "*" (literal tab-name) "-vterm<" (+ digit) ">*")
(buffer-name buff))))))))
;; (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)))