Przeglądaj źródła

modify emacs and tmux title tweaks

pull/1/head
10sr 12 lat temu
rodzic
commit
49742ba23e
2 zmienionych plików z 5 dodań i 4 usunięć
  1. +4
    -4
      emacs.el
  2. +1
    -0
      tmux.conf

+ 4
- 4
emacs.el Wyświetl plik

@@ -41,7 +41,7 @@ Each function is called with two args, the filename before changing and after ch

(defun dllib-if-unfound (url &optional bite-compile-p force-download-p)
"If library does not exist, download it from URL and locate it in \"~/emacs.d/lisp/\".
Return nil if library unfound and downloading failed, otherwise the path where the library installed."
Return nil if library unfound and failed to download, otherwise the path where the library installed."
(let* ((dir (expand-file-name (concat user-emacs-directory "lisp/")))
(lib (file-name-sans-extension (file-name-nondirectory url)))
(lpath (concat dir lib ".el"))
@@ -79,18 +79,18 @@ Return nil if library unfound and downloading failed, otherwise the path where t
"] "
'(:eval (symbol-name last-command))))

(setq set-terminal-title-regexp "^\\(xterm\\|screen\\)")
(defun set-terminal-title (&rest args)
""
(interactive "sString to set as title: ")
(let ((tty (frame-parameter nil
'tty-type)))
(when (and tty
(eq t (compare-strings "xterm" 0 5
tty 0 5)))
(string-match set-terminal-title-regexp
tty))
(send-string-to-terminal (apply 'concat
"\033]0;"
`(,@args "\007"))))))

(defun my-set-terminal-title ()
""
(set-terminal-title "["


+ 1
- 0
tmux.conf Wyświetl plik

@@ -7,4 +7,5 @@ set -g default-terminal screen-256color
#set -g status-left ""
#set -g status-right "#H | %a, %d %b %Y %T %z #(tmux -V)"
set -g status-right "#H | #(tmux -V) "
set -g set-titles on
setw -g mode-keys vi

Ładowanie…
Anuluj
Zapisz