aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormail <mail@joachim-breitner.de>2007-12-27 22:56:07 +0100
committermail <mail@joachim-breitner.de>2007-12-27 22:56:07 +0100
commitd8e68f4e62c4a9b1f1d5d512fea3629a3608c900 (patch)
treef9517914a720ba1fdd6f9357cf05aa9097b7f1fe
parent46fd58ad7a01800aa92556a92ffe9a2878964973 (diff)
downloadXMonadContrib-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
-rw-r--r--XMonad/Hooks/EwmhDesktops.hs10
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"