[XMonad] Tweak window bringer string

This commit is contained in:
Ivan Malison 2016-10-22 01:40:48 -07:00
parent 9cdea6132e
commit 2eb8bcd440
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -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"]