From 8455dd05415ed24cd039a188280ad6e07b1de457 Mon Sep 17 00:00:00 2001
From: Baitinq <manuelpalenzuelamerino@gmail.com>
Date: Sat, 4 Jan 2025 12:59:57 +0100
Subject: Dotfiles: Xmonad: Limit window title length

---
 dotfiles/xmonad.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dotfiles/xmonad.hs b/dotfiles/xmonad.hs
index a514729..1c061a1 100644
--- a/dotfiles/xmonad.hs
+++ b/dotfiles/xmonad.hs
@@ -238,7 +238,9 @@ myStatusBar = statusBarProp "xmobar" (do
                                                     ppCurrent = if numWindows > 0
                                                                         then xmobarBorder "Top" foregroundColor 4 . xmobarColor foregroundColor backgroundColor . wrap " " " "
                                                                         else xmobarColor foregroundColor backgroundColor . wrap " " " "
-                                                  , ppTitle = id
+                                                  , ppTitle = (\xs -> case length xs > 70 of
+                                                                        True -> take 70 xs ++ "..."
+                                                                        False -> xs) . xmobarStrip
                                                   , ppSep = " |  "
                                                   , ppWsSep = ""
                                                   , ppLayout = (\_ -> "")
-- 
cgit 1.4.1