|
|
|
@@ -305,26 +305,35 @@ found, otherwise returns nil." |
|
|
|
;; title and mode-line |
|
|
|
|
|
|
|
(when (fetch-library |
|
|
|
"https://raw.github.com/10sr/emacs-lisp/master/terminal-title.el" |
|
|
|
t) |
|
|
|
"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 |
|
|
|
"@" |
|
|
|
,(car (split-string system-name |
|
|
|
"\\.")) |
|
|
|
":" |
|
|
|
(file-name-nondirectory (directory-file-name |
|
|
|
default-directory))) |
|
|
|
(if (getenv "TMUX") |
|
|
|
;; if use tmux locally just basename of current dir |
|
|
|
(setq terminal-title-format |
|
|
|
'((file-name-nondirectory (directory-file-name |
|
|
|
default-directory)))))) |
|
|
|
default-directory)))) |
|
|
|
(when (equal (car (split-string (frame-parameter nil |
|
|
|
'tty-type) |
|
|
|
"-")) |
|
|
|
"screen") |
|
|
|
(if (getenv "SSH_CONNECTION") |
|
|
|
;; TMUX is not set but TERM is screen: |
|
|
|
;; it seems that TMUX is used by locally and ssh to remote host |
|
|
|
(setq terminal-title-format |
|
|
|
`("em:" |
|
|
|
,user-login-name |
|
|
|
"@" |
|
|
|
,(car (split-string system-name |
|
|
|
"\\.")) |
|
|
|
":" |
|
|
|
(file-name-nondirectory (directory-file-name |
|
|
|
default-directory)))) |
|
|
|
;; this wont happen? (TMUX is not set, TERM is screen, not ssh-ed) |
|
|
|
(setq terminal-title-format |
|
|
|
'((file-name-nondirectory (directory-file-name |
|
|
|
default-directory))))))) |
|
|
|
(terminal-title-mode)) |
|
|
|
|
|
|
|
(setq eol-mnemonic-dos "\\r\\n") |
|
|
|
|
10sr
11 年前