[XMonad] Tweak whitespace in myDecorateName

This commit is contained in:
Ivan Malison 2016-11-30 17:18:59 -06:00
parent 2214ee8c6b
commit 37783d7c36
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -298,7 +298,7 @@ myDecorateName ws w = do
classTitle <- getClass w classTitle <- getClass w
workspaceToName <- getWorkspaceNames workspaceToName <- getWorkspaceNames
return $ printf "%-20s%-40s %+30s" classTitle (take 40 name) return $ printf "%-20s%-40s %+30s" classTitle (take 40 name)
"in " ++ workspaceToName (W.tag ws) "in " ++ workspaceToName (W.tag ws)
-- This needs access to X in order to unminimize, which means that I can't be -- This needs access to X in order to unminimize, which means that I can't be
-- done with the existing window bringer interface -- done with the existing window bringer interface