From b0e2722a260657be52da99fd88d643b545a5171b Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 22 Dec 2007 12:05:52 +0100 Subject: EwmhDesktops: add _NET_ACTIVE_WINDOW support darcs-hash:20071222110552-a5988-3554684ba6f88ed841d420465b8832ef8e0dd8bb.gz --- XMonad/Hooks/EwmhDesktops.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'XMonad') 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] -- cgit v1.2.3