From 9f869f9af1d82bb916cdd1deb5d4756fe07f88c0 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Mon, 12 Mar 2007 02:07:56 +0100
Subject: wibbles

darcs-hash:20070312010756-9c5c1-a24636e0c593d17f800bddc442466b727e7f4bde
---
 Main.hs | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 98f360d..c023853 100644
--- a/Main.hs
+++ b/Main.hs
@@ -218,11 +218,11 @@ windows f = do
 hide :: Window -> X ()
 hide w = withDisplay $ \d -> do
     (sw,sh) <- gets dimensions
-    io $! moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh)
+    io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh)
 
 -- | reveal. Expose a list of windows, moving them on screen
 reveal :: Window -> X ()
-reveal w = withDisplay $ \d -> io $! moveWindow d w 0 0
+reveal w = withDisplay $ \d -> io $ moveWindow d w 0 0
 
 -- ---------------------------------------------------------------------
 -- Window operations
@@ -247,10 +247,16 @@ unmanage w = do
     ws <- gets workspace
     when (W.member w ws) $ do
         modify $ \s -> s { workspace = W.delete w (workspace s) }
-        withDisplay $ \d ->
-           withServerX d $ do
-              setTopFocus
-              io (sync d False)
+        withServerX $ do
+          setTopFocus
+          withDisplay $ \d -> io (sync d False) -- TODO, everything operates on the current display, so wrap it up.
+
+-- | Grab the X server (lock it) from the X monad
+withServerX :: X () -> X ()
+withServerX f = withDisplay $ \dpy -> do
+    io $ grabServer dpy
+    f
+    io $ ungrabServer dpy
 
 -- | Explicitly set the keyboard focus to the given window
 setFocus :: Window -> X ()
@@ -268,13 +274,6 @@ setTopFocus = do
 isRoot :: Window -> X Bool
 isRoot w = liftM (w==) (gets theRoot)
 
--- | Grab the X server (lock it) from the X monad
-withServerX :: Display -> X () -> X ()
-withServerX dpy f = do
-    io $ grabServer dpy
-    f
-    io $ ungrabServer dpy
-
 -- | raise. focus to window at offset 'n' in list.
 -- The currently focused window is always the head of the list
 raise :: Ordering -> X ()
-- 
cgit v1.2.3