diff options
| -rw-r--r-- | dotfiles/xmonad.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 = (\_ -> "") |