From fe629abc3fe4e8c01ac1fb7b05ed794923055b9c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 31 Mar 2007 03:00:24 +0200
Subject: Move safeFocus from Main to Operations

darcs-hash:20070331010024-a5988-73c72204cd204872dd7a2339c1e805e2a0578a58.gz
---
 Operations.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 9b0a229..c0e4450 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -136,6 +136,13 @@ withServerX f = withDisplay $ \dpy -> do
     f
     io $ ungrabServer dpy
 
+safeFocus :: Window -> X ()
+safeFocus w = do ws <- gets workspace
+                 if W.member w ws
+                    then setFocus w
+                    else do b <- isRoot w
+                            when b setTopFocus
+
 -- | Explicitly set the keyboard focus to the given window
 setFocus :: Window -> X ()
 setFocus w = do
-- 
cgit v1.2.3