X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/c9c276718ca9258772cf7bba908dc4b5a416b199..8142c84910c50381c6c25caff486ed08859ba01d:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index 4ece425..2e15651 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -617,7 +617,12 @@
 
 ;; Other frame fiddling.
 
-(setq frame-title-format '("Emacs " user-login-name "@" system-name " – %b"))
+(defvar mdw-hostname
+  (if (string-match "\\." system-name)
+      (substring system-name 0 (match-beginning 0))
+    system-name))
+(setq frame-title-format '("Emacs " user-login-name "@" mdw-hostname " – %b")
+      icon-title-format frame-title-format)
 
 ;; Global keymap changes.