aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-12-22 12:05:52 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-12-22 12:05:52 +0100
commitb0e2722a260657be52da99fd88d643b545a5171b (patch)
treeecbb6c273423ae717db234d8b78e17cb22185c46 /XMonad
parent80c414ffdec4bfcfb9c583264643176fba2ef3df (diff)
downloadXMonadContrib-b0e2722a260657be52da99fd88d643b545a5171b.tar.gz
XMonadContrib-b0e2722a260657be52da99fd88d643b545a5171b.tar.xz
XMonadContrib-b0e2722a260657be52da99fd88d643b545a5171b.zip
EwmhDesktops: add _NET_ACTIVE_WINDOW support
darcs-hash:20071222110552-a5988-3554684ba6f88ed841d420465b8832ef8e0dd8bb.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Hooks/EwmhDesktops.hs9
1 files changed, 8 insertions, 1 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs
index fba4060..b9dff0c 100644
--- a/XMonad/Hooks/EwmhDesktops.hs
+++ b/XMonad/Hooks/EwmhDesktops.hs
@@ -73,6 +73,8 @@ ewmhDesktopsLogHook = withWindowSet $ \s -> do
forM_ (W.integrate' (W.stack w)) $ \win -> do
setWindowDesktop win wn
+ setActiveWindow
+
return ()
@@ -126,4 +128,9 @@ setSupported = withDisplay $ \dpy -> do
setWMName "xmonad"
-
+setActiveWindow :: X ()
+setActiveWindow = withFocused $ \w -> withDisplay $ \dpy -> do
+ r <- asks theRoot
+ a <- getAtom "_NET_ACTIVE_WINDOW"
+ c <- getAtom "WINDOW"
+ io $ changeProperty32 dpy r a c propModeReplace [fromIntegral w]