wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests 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 -- 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} action = do
, menuArgs = args visible <- visibleWindows
} action = ws <- windowMap' c {windowFilter = not . flip elem visible}
do
visible <- visibleWindows
ws <- windowMap' c { windowFilter = not . flip elem visible }
-- chromeTabs <- liftIO getChromeTabInfo -- chromeTabs <- liftIO getChromeTabInfo
let options = M.union (M.map Left ws) (M.map Right M.empty) let options = M.union (M.map Left ws) (M.map Right M.empty)
selection <- DM.menuMapArgs cmd args options selection <- DM.menuMapArgs cmd args options
whenJust selection action whenJust selection action
doBringWindow window = doBringWindow window =
maximizeWindow window >> windows (W.focusWindow window . bringWindow window) maximizeWindow window >> windows (W.focusWindow window . bringWindow window)