diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 12:05:52 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 12:05:52 +0100 |
| commit | b0e2722a260657be52da99fd88d643b545a5171b (patch) | |
| tree | ecbb6c273423ae717db234d8b78e17cb22185c46 /XMonad/Hooks/EwmhDesktops.hs | |
| parent | 80c414ffdec4bfcfb9c583264643176fba2ef3df (diff) | |
| download | XMonadContrib-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/Hooks/EwmhDesktops.hs')
| -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] |