forked from colonelpanic/dotfiles
[XMonad] Make bringWindow also unminimize
This commit is contained in:
parent
8f4632d4ae
commit
8b2bad8fa2
@ -197,6 +197,17 @@ myDecorateName ws w = do
|
|||||||
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 the xmonad to unminimize so it can't be done with the
|
||||||
|
-- exiting window bringer interface
|
||||||
|
myBringWindow WindowBringerConfig{ menuCommand = cmd
|
||||||
|
, menuArgs = args
|
||||||
|
, windowTitler = titler
|
||||||
|
} =
|
||||||
|
windowMap' titler >>= DM.menuMapArgs cmd args >>= flip whenJust action
|
||||||
|
where action window = sequence_ [ maximizeWindow window
|
||||||
|
, windows $ W.focusWindow window . bringWindow window
|
||||||
|
]
|
||||||
|
|
||||||
-- Dynamic Workspace Renaming
|
-- Dynamic Workspace Renaming
|
||||||
|
|
||||||
@ -361,8 +372,7 @@ addKeys conf@XConfig {modMask = modm} =
|
|||||||
, ((modm .|. shiftMask, xK_p), spawn "rofi -show run")
|
, ((modm .|. shiftMask, xK_p), spawn "rofi -show run")
|
||||||
, ((modm, xK_g), maybeUnminimizeAfter $
|
, ((modm, xK_g), maybeUnminimizeAfter $
|
||||||
actionMenu myWindowBringerConfig greedyFocusWindow)
|
actionMenu myWindowBringerConfig greedyFocusWindow)
|
||||||
, ((modm, xK_b), maybeUnminimizeAfter $
|
, ((modm, xK_b), myBringWindow myWindowBringerConfig)
|
||||||
bringMenuConfig myWindowBringerConfig)
|
|
||||||
, ((modm .|. shiftMask, xK_b), swapMinimizeStateAfter $
|
, ((modm .|. shiftMask, xK_b), swapMinimizeStateAfter $
|
||||||
actionMenu myWindowBringerConfig swapFocusedWith)
|
actionMenu myWindowBringerConfig swapFocusedWith)
|
||||||
, ((modm .|. controlMask, xK_t), spawn
|
, ((modm .|. controlMask, xK_t), spawn
|
||||||
|
Loading…
Reference in New Issue
Block a user