dot/emacs: Put the unqualified hostname in the frame title.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index 4ece425..d6a1f4c 100644 (file)
--- 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"))
 
 ;; Global keymap changes.