[XMonad] Fixups
This commit is contained in:
parent
d20a19b308
commit
1c67879fbc
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user