aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-03-09 04:18:47 +0100
committerDon Stewart <dons@cse.unsw.edu.au>2007-03-09 04:18:47 +0100
commitab17e41c421a3d39cbdb2f49fa74f9e115f06bba (patch)
treee4344d7db0381133f63451b18f0c98863849d9a0
parentc3005e36bb05cee2c1537daa383a06e81d79ca88 (diff)
downloadxmonad-ab17e41c421a3d39cbdb2f49fa74f9e115f06bba.tar.gz
xmonad-ab17e41c421a3d39cbdb2f49fa74f9e115f06bba.tar.xz
xmonad-ab17e41c421a3d39cbdb2f49fa74f9e115f06bba.zip
comments
darcs-hash:20070309031847-9c5c1-6396e943c279670afa031449c2b5e54f8595472f.gz
-rw-r--r--Main.hs29
1 files changed, 9 insertions, 20 deletions
diff --git a/Main.hs b/Main.hs
index 42fcfdf..c1feae7 100644
--- a/Main.hs
+++ b/Main.hs
@@ -53,7 +53,6 @@ keys = M.fromList $
| i <- [1 .. workspaces]
, (f, m) <- [(view, 0), (tag, shiftMask)]]
-
--
-- let's get underway
--
@@ -92,23 +91,21 @@ grabKeys dpy r = forM_ (M.keys keys) $ \(m,s) -> io $ do
kc <- keysymToKeycode dpy s
grabKey dpy kc m r True grabModeAsync grabModeAsync
+-- ---------------------------------------------------------------------
+-- Event handler
--
-- | handle. Handle X events
--- dwm handles:
--
--- [ButtonPress] = buttonpress,
--- [ConfigureRequest] = configurerequest,
--- [DestroyNotify] = destroynotify,
--- [EnterNotify] = enternotify,
--- [LeaveNotify] = leavenotify,
--- [Expose] = expose,
--- [KeyPress] = keypress,
--- [MappingNotify] = mappingnotify,
--- [MapRequest] = maprequest,
+-- Events dwm handles that we don't:
+--
+-- [ButtonPress] = buttonpress,
+-- [EnterNotify] = enternotify,
+-- [LeaveNotify] = leavenotify,
+-- [Expose] = expose,
-- [PropertyNotify] = propertynotify,
--- [UnmapNotify] = unmapnotify
--
handle :: Event -> W ()
+
handle (MapRequestEvent {window = w}) = withDisplay $ \dpy -> do
wa <- io $ getWindowAttributes dpy w
when (not (waOverrideRedirect wa)) $ manage w
@@ -139,14 +136,6 @@ handle e@(ConfigureRequestEvent {}) = do
}
io $ sync dpy False
--- Typical events I see still unhandled:
--- ConfigureNotify
--- MapNotify
--- CreateNotify
--- KeyRelease
---
--- In particular, ConfigureNotify and MapNotify a lot on firefox
---
handle e = trace (eventName e)
-- ---------------------------------------------------------------------