diff options
| -rw-r--r-- | lisp/appearance/modeline.el | 6 | ||||
| -rw-r--r-- | lisp/terminal.el | 9 |
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/appearance/modeline.el b/lisp/appearance/modeline.el index c3acaf7..042142f 100644 --- a/lisp/appearance/modeline.el +++ b/lisp/appearance/modeline.el @@ -106,6 +106,12 @@ RIGHT aligned respectively." "] [%*] Ln: %l/" (number-to-string (1+ (count-lines 1 (point-max)))) " Col: %c")) + ((and (eq major-mode 'vterm-mode) (boundp 'vterm-buffer-title) vterm-buffer-title) + (concat "%b [%m: " + vterm-buffer-title + "] [%*] Ln: %l/" + (number-to-string (1+ (count-lines 1 (point-max)))) + " Col: %c")) ((and (eq major-mode 'eww-mode) (boundp 'eww-data)) (concat (plist-get eww-data :title) " [%m] [%*] Ln: %l/" diff --git a/lisp/terminal.el b/lisp/terminal.el index 6cda423..334062e 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -9,4 +9,11 @@ ;;; altogether, albeit with a very slow transition-out. ;;; -(use-package vterm) +(defvar vterm-buffer-title nil + "Title set by shell program.") + +(use-package vterm + :config + (defun vterm--set-title (title) + "Use TITLE to set the buffer name according to `vterm-buffer-name-string'." + (setq vterm-buffer-title title))) |