aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Hooks')
-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"