wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Make bringWindow also unminimize

Browse Source
This commit is contained in:
Ivan Malison 2016-11-21 17:25:13 -08:00
parent 8f4632d4ae
commit 8b2bad8fa2
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
dotfiles/xmonad/xmonad.hs
View File

@ -197,6 +197,17 @@ myDecorateName ws w = do
workspaceToName <- getWorkspaceNames
return $ printf "%-20s%-40s %+30s" classTitle (take 40 name)
"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
@ -361,8 +372,7 @@ addKeys conf@XConfig {modMask = modm} =
, ((modm .|. shiftMask, xK_p), spawn "rofi -show run")
, ((modm, xK_g), maybeUnminimizeAfter $
actionMenu myWindowBringerConfig greedyFocusWindow)
, ((modm, xK_b), maybeUnminimizeAfter $
bringMenuConfig myWindowBringerConfig)
, ((modm, xK_b), myBringWindow myWindowBringerConfig)
, ((modm .|. shiftMask, xK_b), swapMinimizeStateAfter $
actionMenu myWindowBringerConfig swapFocusedWith)
, ((modm .|. controlMask, xK_t), spawn