fix terminal-title prefs

emacs.el

@@ -304,10 +304,27 @@ found, otherwise returns nil."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; title and mode-line
 
-;; (when (fetch-library
-;;   "https://raw.github.com/10sr/emacs-lisp/master/terminal-title.el"
-;;   t)
-;;  (require 'terminal-title nil t))
+(when (fetch-library
+  "https://raw.github.com/10sr/emacs-lisp/master/terminal-title.el"
+  t)
+  (require 'terminal-title nil t)
+  ;; if TERM is not screen use default value
+  (when (equal (car (split-string (frame-parameter nil
+                                                   'tty-type)
+                                  "-"))
+               "screen")
+    (setq terminal-title-format
+          (if (getenv "SSH_CONNECTION")
+              '("em:"
+                user-login-name
+                "@"
+                system-name
+                ":"
+                (file-name-nondirectory (directory-file-name
+                                         default-directory)))
+            '((file-name-nondirectory (directory-file-name
+                                       default-directory))))))
+  (terminal-title-mode))
 
 (setq eol-mnemonic-dos "\\r\\n")
 (setq eol-mnemonic-mac "\\r")

shrc

@@ -551,10 +551,10 @@ datestr(){
     date +"$dfmt"
 }
 
-ssh(){
-    __my_set_screen_title ssh
-    command ssh "$@"
-}
+# ssh(){
+#     # __my_terminal_title ssh
+#     command ssh "$@"
+# }
 
 __ssh_with_cd(){
     # __ssh_with_cd <host> <directory> [<arg> ...]