diff options
| author | mail <mail@joachim-breitner.de> | 2007-12-28 16:42:22 +0100 |
|---|---|---|
| committer | mail <mail@joachim-breitner.de> | 2007-12-28 16:42:22 +0100 |
| commit | ccf5f3193175e164330871d0aa243fd5899287d0 (patch) | |
| tree | 6f4c4aed299d617a4d103aab28eb5249b31801ae /XMonad/Hooks/EwmhDesktops.hs | |
| parent | ddb291c94fbb1d051b34d281d70151f2ee9d45ae (diff) | |
| download | XMonadContrib-ccf5f3193175e164330871d0aa243fd5899287d0.tar.gz XMonadContrib-ccf5f3193175e164330871d0aa243fd5899287d0.tar.xz XMonadContrib-ccf5f3193175e164330871d0aa243fd5899287d0.zip | |
Clear _NET_ACTIVE_WINDOW when nothing is focused
darcs-hash:20071228154222-c9905-a2eeeb67751c810010d81b3021ccb033de770ec0.gz
Diffstat (limited to 'XMonad/Hooks/EwmhDesktops.hs')
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index c0856d7..c6fd3a2 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -129,7 +129,8 @@ setSupported = withDisplay $ \dpy -> do setWMName "xmonad" setActiveWindow :: X () -setActiveWindow = withFocused $ \w -> withDisplay $ \dpy -> do +setActiveWindow = withWindowSet $ \s -> withDisplay $ \dpy -> do + let w = fromMaybe 0 (W.peek s) r <- asks theRoot a <- getAtom "_NET_ACTIVE_WINDOW" c <- getAtom "WINDOW" |