Ver código fonte

emacs.el: fix terminal-title setups

pull/1/head
10sr 10 anos atrás
pai
commit
acea7888eb
1 arquivos alterados com 31 adições e 31 exclusões
  1. +31
    -31
      emacs.el

+ 31
- 31
emacs.el Ver arquivo

@@ -321,37 +321,37 @@ 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)
;; if TERM is not screen use default value
(if (getenv "TMUX")
;; if use tmux locally just basename of current dir
(setq terminal-title-format
'((file-name-nondirectory (directory-file-name
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))
(and (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
(if (getenv "TMUX")
;; if use tmux locally just basename of current dir
(setq terminal-title-format
'((file-name-nondirectory (directory-file-name
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")
(setq eol-mnemonic-mac "\\r")


Carregando…
Cancelar
Salvar