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

diff --git a/dot/emacs b/dot/emacs
index 4ece425e30057114f0744d4a74cfaf1ce3c18af4..d6a1f4ceb48874832efa98605381fbaa01b7b60d 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.