(defun my/generate-frame-title ()
- "Returns a string like 'filename (dirname) - Emacs'"
- (if (buffer-file-name)
- (concat
- (file-name-nondirectory (buffer-file-name))
- (if (buffer-modified-p)
- " +")
- " ("
- (abbreviate-file-name (substring (file-name-directory (buffer-file-name)) 0 -1))
- ") - Emacs"
- )
+ "Returns a string like 'filename (dirname) (hostname)'"
+ (let ((t-name
+ (if (buffer-file-name)
+ (file-name-nondirectory (buffer-file-name))
+ (buffer-name)))
+ (t-directory
+ (if (buffer-file-name)
+ (concat
+ " ("
+ (abbreviate-file-name
+ (substring (file-name-directory (buffer-file-name)) 0 -1))
+ ")")))
+ (t-modified
+ (if (buffer-modified-p)
+ " +")))
(concat
- (buffer-name)
- (if (buffer-modified-p)
- " +")
- " - Emacs")))
+ t-name
+ t-modified
+ t-directory
+ " (" (system-name) ")")))
(defun my/terminal-update-title ()
"If using a terminal frame then sends the escape codes to update the title."