diff options
| author | mail <mail@joachim-breitner.de> | 2007-12-27 22:56:07 +0100 |
|---|---|---|
| committer | mail <mail@joachim-breitner.de> | 2007-12-27 22:56:07 +0100 |
| commit | d8e68f4e62c4a9b1f1d5d512fea3629a3608c900 (patch) | |
| tree | f9517914a720ba1fdd6f9357cf05aa9097b7f1fe /XMonad/Hooks | |
| parent | 46fd58ad7a01800aa92556a92ffe9a2878964973 (diff) | |
| download | XMonadContrib-d8e68f4e62c4a9b1f1d5d512fea3629a3608c900.tar.gz XMonadContrib-d8e68f4e62c4a9b1f1d5d512fea3629a3608c900.tar.xz XMonadContrib-d8e68f4e62c4a9b1f1d5d512fea3629a3608c900.zip | |
Fulfill the EWMH specification by listing the supported ATOMs, doesnt really make a differene AFAIK
darcs-hash:20071227215607-c9905-79dc9d03d007173c22f7cf62d3abb0bfab766919.gz
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/EwmhDesktops.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/XMonad/Hooks/EwmhDesktops.hs b/XMonad/Hooks/EwmhDesktops.hs index c112d01..d65c3c8 100644 --- a/XMonad/Hooks/EwmhDesktops.hs +++ b/XMonad/Hooks/EwmhDesktops.hs @@ -129,7 +129,15 @@ setSupported = withDisplay $ \dpy -> do r <- asks theRoot a <- getAtom "_NET_SUPPORTED" c <- getAtom "ATOM" - supp <- mapM getAtom ["_NET_WM_STATE_HIDDEN"] + supp <- mapM getAtom ["_NET_WM_STATE_HIDDEN" + ,"_NET_NUMBER_OF_DESKTOPS" + ,"_NET_CLIENT_LIST" + ,"_NET_CURRENT_DESKTOP" + ,"_NET_DESKTOP_NAMES" + ,"_NET_ACTIVE_WINDOW" + ,"_NET_WM_DESKTOP" + ,"_NET_WM_STRUT" + ] io $ changeProperty32 dpy r a c propModeReplace (fmap fromIntegral supp) setWMName "xmonad" |