Show only a single window title in the mode-line

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