summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs17
1 files changed, 8 insertions, 9 deletions
diff --git a/Main.hs b/Main.hs
index a332401..0be2e34 100644
--- a/Main.hs
+++ b/Main.hs
@@ -104,13 +104,13 @@ handle e@(ConfigureRequestEvent {}) = do
dpy <- gets display
io $ configureWindow dpy (window e) (value_mask e) $
WindowChanges
- { wcX = x e
- , wcY = y e
- , wcWidth = width e
- , wcHeight = height e
+ { wcX = x e
+ , wcY = y e
+ , wcWidth = width e
+ , wcHeight = height e
, wcBorderWidth = border_width e
- , wcSibling = above e
- , wcStackMode = detail e
+ , wcSibling = above e
+ , wcStackMode = detail e
}
io $ sync dpy False
@@ -141,13 +141,12 @@ withWindows f = do
modifyWindows f
refresh
--- | manage. Add a new window to be managed
+-- | manage. Add a new window to be managed. Bring it into focus.
manage :: Window -> W ()
manage w = do
- trace "manage"
d <- gets display
- withWindows (nub . (w :))
io $ mapWindow d w
+ withWindows (nub . (w :))
-- | unmanage, a window no longer exists, remove it from the stack
unmanage :: Window -> W ()