Show only a single window title in the mode-line
This commit is contained in:
parent
2807346b46
commit
7c7af83a27
1 changed files with 7 additions and 2 deletions
|
@ -50,8 +50,13 @@ after it has been unlocked."
|
||||||
("C-M-Break" . "C-S-m"))))
|
("C-M-Break" . "C-S-m"))))
|
||||||
|
|
||||||
(setf *mode-line-background-color* "#5b6161"
|
(setf *mode-line-background-color* "#5b6161"
|
||||||
*mode-line-foreground-color* "#bfbfbf"
|
*mode-line-foreground-color* "#bfbfbf")
|
||||||
*screen-mode-line-format* "[^B%n^b] %W^>%d")
|
(setf *screen-mode-line-format*
|
||||||
|
(list " [^B%n^b] "
|
||||||
|
'(:eval
|
||||||
|
(or (ignore-errors (window-title (current-window)))
|
||||||
|
"Unknown"))
|
||||||
|
"^>%d "))
|
||||||
(mode-line)
|
(mode-line)
|
||||||
|
|
||||||
(restore-from-file "default")
|
(restore-from-file "default")
|
||||||
|
|
Loading…
Reference in a new issue