From d8e68f4e62c4a9b1f1d5d512fea3629a3608c900 Mon Sep 17 00:00:00 2001
From: mail <mail@joachim-breitner.de>
Date: Thu, 27 Dec 2007 22:56:07 +0100
Subject: Fulfill the EWMH specification by listing the supported ATOMs, doesnt
 really make a differene AFAIK

darcs-hash:20071227215607-c9905-79dc9d03d007173c22f7cf62d3abb0bfab766919.gz
---
 XMonad/Hooks/EwmhDesktops.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'XMonad/Hooks')

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"
-- 
cgit v1.2.3