From 0fb334e55abe193429ea0467a8d3240df9d27029 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Fri, 6 Dec 2013 21:41:47 +0900
Subject: [PATCH] fix title format

---
 emacs.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/emacs.el b/emacs.el
index 3efe4b4..418098c 100644
--- a/emacs.el
+++ b/emacs.el
@@ -315,10 +315,11 @@ found, otherwise returns nil."
                "screen")
     (setq terminal-title-format
           (if (getenv "SSH_CONNECTION")
-              '("em:"
-                user-login-name
+              `("em:"
+                ,user-login-name
                 "@"
-                system-name
+                ,(car (split-string system-name
+                                    "\\."))
                 ":"
                 (file-name-nondirectory (directory-file-name
                                          default-directory)))