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