diff --git a/emacs.el b/emacs.el index 4e8eeb5..e22913c 100644 --- a/emacs.el +++ b/emacs.el @@ -249,20 +249,27 @@ drill-instructor.el" `(,@args "\007")))))) (defun my-set-terminal-title () "" - (set-terminal-title (abbreviate-file-name (or buffer-file-name + (set-terminal-title "[" + user-login-name + "@" + system-name + ":" + (abbreviate-file-name (or buffer-file-name default-directory)) - " | " - (number-to-string (length - (buffer-list-not-start-with-space))) - " buffers in " - (frame-parameter nil 'name) - " [" + "][" invocation-name " " emacs-version " " (symbol-name system-type) - "] ")) + "][" + "FRAME:" + (frame-parameter nil 'name) + ":" + (number-to-string (length + (buffer-list-not-start-with-space))) + "]" + )) (add-hook 'buffer-file-changed-functions (lambda (p c) (my-set-terminal-title)))