aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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]