Browse Source

update title format for xterm

pull/1/head
10sr 12 years ago
parent
commit
f073685a5e
1 changed files with 15 additions and 8 deletions
  1. +15
    -8
      emacs.el

+ 15
- 8
emacs.el View File

@@ -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)))


Loading…
Cancel
Save