[XMonad] Make following window return result of original action

2017-09-09 13:12:52 -07:00
parent 579a4afdc7
commit 3c4de85da9
1 changed files with 2 additions and 1 deletions
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -167,8 +167,9 @@ visibleWindows =

 followingWindow action = do
  orig <- withWindowSet (return . W.peek)
-  _ <- action
+  res <- action
  whenJust orig $ windows . W.focusWindow
+  return res

 myDmenuArgs = ["-dmenu", "-i"]