| @@ -200,7 +200,7 @@ IF OK-IF-ALREADY-EXISTS is true force download." | |||||
| gnuplot-mode | gnuplot-mode | ||||
| erlang | erlang | ||||
| js2-mode | js2-mode | ||||
| git-commit | |||||
| git-commit | |||||
| gitignore-mode | gitignore-mode | ||||
| ;; ack | ;; ack | ||||
| color-moccur | color-moccur | ||||
| @@ -235,7 +235,7 @@ IF OK-IF-ALREADY-EXISTS is true force download." | |||||
| read-only-only-mode | read-only-only-mode | ||||
| smart-revert | smart-revert | ||||
| autosave | autosave | ||||
| ;;window-organizer | |||||
| ;;window-organizer | |||||
| remember-major-modes-mode | remember-major-modes-mode | ||||
| ilookup | ilookup | ||||
| pasteboard | pasteboard | ||||
| @@ -435,8 +435,8 @@ IF OK-IF-ALREADY-EXISTS is true force download." | |||||
| (if (getenv "TMUX") | (if (getenv "TMUX") | ||||
| ;; if use tmux locally just basename of current dir | ;; if use tmux locally just basename of current dir | ||||
| (setq terminal-title-format | (setq terminal-title-format | ||||
| '((file-name-nondirectory (directory-file-name | |||||
| default-directory)))) | |||||
| '((file-name-nondirectory (directory-file-name | |||||
| default-directory)))) | |||||
| (if (and (let ((tty-type (frame-parameter nil | (if (and (let ((tty-type (frame-parameter nil | ||||
| 'tty-type))) | 'tty-type))) | ||||
| (and tty-type | (and tty-type | ||||
| @@ -445,17 +445,17 @@ IF OK-IF-ALREADY-EXISTS is true force download." | |||||
| "screen"))) | "screen"))) | ||||
| (not (getenv "SSH_CONNECTION"))) | (not (getenv "SSH_CONNECTION"))) | ||||
| (setq terminal-title-format | (setq terminal-title-format | ||||
| '((file-name-nondirectory (directory-file-name | |||||
| default-directory)))) | |||||
| '((file-name-nondirectory (directory-file-name | |||||
| default-directory)))) | |||||
| ;; seems that TMUX is used locally and ssh to remote host | ;; seems that TMUX is used locally and ssh to remote host | ||||
| (setq terminal-title-format | (setq terminal-title-format | ||||
| `("em:" | |||||
| ,user-login-name | |||||
| "@" | |||||
| ,(car (split-string system-name | |||||
| "\\.")) | |||||
| ":" | |||||
| default-directory)) | |||||
| `("em:" | |||||
| ,user-login-name | |||||
| "@" | |||||
| ,(car (split-string system-name | |||||
| "\\.")) | |||||
| ":" | |||||
| default-directory)) | |||||
| ) | ) | ||||
| ) | ) | ||||
| (terminal-title-mode)) | (terminal-title-mode)) | ||||