|
@@ -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)) |
|
|