diff options
author | Tom Willemse | 2023-04-22 00:31:21 -0700 |
---|---|---|
committer | Tom Willemse | 2023-04-22 00:31:21 -0700 |
commit | 7c7af83a2750ea29b49a7205014eaadf1e889338 (patch) | |
tree | 8f71be8cb0afa7e59f6a1714f3b931b0eec7d25a | |
parent | 2807346b4690a17c4637366209f0075f4ea50367 (diff) | |
download | new-dotfiles-7c7af83a2750ea29b49a7205014eaadf1e889338.tar.gz new-dotfiles-7c7af83a2750ea29b49a7205014eaadf1e889338.zip |
Show only a single window title in the mode-line
-rw-r--r-- | oni/home/services/stumpwm/config | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config index 3a7f1d4..2c0ff58 100644 --- a/oni/home/services/stumpwm/config +++ b/oni/home/services/stumpwm/config @@ -50,8 +50,13 @@ after it has been unlocked." ("C-M-Break" . "C-S-m")))) (setf *mode-line-background-color* "#5b6161" - *mode-line-foreground-color* "#bfbfbf" - *screen-mode-line-format* "[^B%n^b] %W^>%d") + *mode-line-foreground-color* "#bfbfbf") +(setf *screen-mode-line-format* + (list " [^B%n^b] " + '(:eval + (or (ignore-errors (window-title (current-window))) + "Unknown")) + "^>%d ")) (mode-line) (restore-from-file "default") |