[XMonad] Fixups

This commit is contained in:
Ivan Malison 2017-03-28 17:57:25 -07:00
parent d20a19b308
commit 1c67879fbc
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -319,7 +319,8 @@ myDecorateName ws w = do
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 it can't be
-- done with the existing window bringer interface -- done with the existing window bringer interface
myWindowAct c@WindowBringerConfig { menuCommand = cmd myWindowAct c@WindowBringerConfig { menuCommand = cmd
, menuArgs = args , menuArgs = args
@ -331,9 +332,7 @@ myWindowAct c@WindowBringerConfig { menuCommand = cmd
myBringWindow window = myBringWindow window =
sequence_ [ maximizeWindow window maximizeWindow window >> (windows $ W.focusWindow window . bringWindow window)
, windows $ W.focusWindow window . bringWindow window
]
-- Dynamic Workspace Renaming -- Dynamic Workspace Renaming