From 43c2d26cdb3ee70b19bdb2a856e3d62c87c0a1b9 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 7 Apr 2008 22:25:59 +0000
Subject: [PATCH] Set focus *after* revealing windows

---
 XMonad/Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index 4246912..9f48d9e 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -151,10 +151,10 @@ windows f = do
         return vs
 
     whenJust (W.peek ws) $ \w -> io $ setWindowBorder d w fbc
-    setTopFocus
     asks (logHook . config) >>= userCode
 
     mapM_ reveal visible
+    setTopFocus
 
     -- hide every window that was potentially visible before, but is not
     -- given a position by a layout now.