diff options
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 9 |
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] |