Include hostname in xterm frame title

[dotemacs] / lisp / my-frame-title.el

diff --git a/lisp/my-frame-title.el b/lisp/my-frame-title.el
index e640c452ebba12c17c101f26217d4f58f96114de..bb558b3ac2e0e35df2ec6c6e6262d860d8670a0f 100644 (file)
--- a/lisp/my-frame-title.el
+++ b/lisp/my-frame-title.el
@@ -8,21 +8,26 @@
 
 
 (defun my/generate-frame-title ()
 
 
 (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
     (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."
 
 (defun my/terminal-update-title ()
   "If using a terminal frame then sends the escape codes to update the title."