[XMonad] Tweak window bringer string

2016-10-22 01:40:48 -07:00 · 2016-10-22 01:40:48 -07:00 · 2eb8bcd440
commit 2eb8bcd440
parent 9cdea6132e
1 changed files with 1 additions and 1 deletions
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@ -39,7 +39,7 @@ myDecorateName ws w = do
  name <- show <$> getName w
  classTitle <- getClass w
  workspaceToName <- getWorkspaceNames
-  return $ printf "%-20s%-50s %+40s" classTitle name $ "in " ++ workspaceToName (W.tag ws)
+  return $ printf "%-20s%-40s %+30s" classTitle (take 40 name) "in " ++ workspaceToName (W.tag ws)

 myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi"
                                            , menuArgs = ["-dmenu", "-i"]