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

[XMonad] Make following window return result of original action

Browse Source
This commit is contained in:
Ivan Malison 2017-09-09 13:12:52 -07:00
parent 579a4afdc7
commit 3c4de85da9
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
dotfiles/xmonad/xmonad.hs
View File

@ -167,8 +167,9 @@ visibleWindows =
followingWindow action = do followingWindow action = do
orig <- withWindowSet (return . W.peek) orig <- withWindowSet (return . W.peek)
_ <- action res <- action
whenJust orig $ windows . W.focusWindow whenJust orig $ windows . W.focusWindow
return res
myDmenuArgs = ["-dmenu", "-i"] myDmenuArgs = ["-dmenu", "-i"]