Show only a single window title in the mode-line

This commit is contained in:
Tom Willemse 2023-04-22 00:31:21 -07:00
parent 2807346b46
commit 7c7af83a27

View file

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