X-Git-Url: https://code.delx.au/dotemacs/blobdiff_plain/28875e9aa2e884c02eca81ba85b6a49d0b2a2d12..c1c4768b85abb830d72de443a5362bbedeee14fd:/lisp/my-frame-title.el

diff --git a/lisp/my-frame-title.el b/lisp/my-frame-title.el
index e640c45..bb558b3 100644
--- a/lisp/my-frame-title.el
+++ b/lisp/my-frame-title.el
@@ -8,21 +8,26 @@
 
 
 (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."