colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Reindent windowAct

Browse Source
This commit is contained in:
Ivan Malison 2017-08-24 12:07:47 -07:00
parent 725b5f5c30
commit ccbff942e8
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
dotfiles/xmonad/xmonad.hs
View File

@ -433,16 +433,13 @@ chromeTabAction doSplit action selected =
-- This needs access to X in order to unminimize, which means that it can't be
-- done with the existing window bringer interface
myWindowAct c@WindowBringerConfig { menuCommand = cmd
, menuArgs = args
} action =
do
visible <- visibleWindows
ws <- windowMap' c { windowFilter = not . flip elem visible }
myWindowAct c@WindowBringerConfig {menuCommand = cmd, menuArgs = args} action = do
visible <- visibleWindows
ws <- windowMap' c {windowFilter = not . flip elem visible}
-- chromeTabs <- liftIO getChromeTabInfo
let options = M.union (M.map Left ws) (M.map Right M.empty)
selection <- DM.menuMapArgs cmd args options
whenJust selection action
let options = M.union (M.map Left ws) (M.map Right M.empty)
selection <- DM.menuMapArgs cmd args options
whenJust selection action
doBringWindow window =
maximizeWindow window >> windows (W.focusWindow window . bringWindow window)