From 5af4daccc8db2f097d612360292c274f3cad7f33 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Mon, 28 Feb 2011 23:51:55 +0100
Subject: Simplify utility window query

---
 xmonad.hs | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

(limited to 'xmonad.hs')

diff --git a/xmonad.hs b/xmonad.hs
index f458ad4..b66154a 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -86,20 +86,8 @@ myStartupHook = do
   setWMName "LG3D"
 
 
-atomProperty :: String -> Query Atom
-atomProperty p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe 0) $ getAtomProperty d w p)
-
-getAtomProperty :: Display -> Window -> String -> X (Maybe Atom)
-getAtomProperty d w p = do
-  a <- getAtom p
-  md <- io $ getWindowProperty32 d a w
-  return $ fmap fromIntegral $ listToMaybe $ fromMaybe [] md
-
 isUtility :: Query Bool
-isUtility = do
-  atom__NET_WM_WINDOW_TYPE_UTILITY <- liftX $ getAtom "_NET_WM_WINDOW_TYPE_UTILITY"
-  atomProperty "_NET_WM_WINDOW_TYPE" =? atom__NET_WM_WINDOW_TYPE_UTILITY
-
+isUtility = isInProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_UTILITY"
 
 myManageHook :: ManageHook
 myManageHook = composeAll
-- 
cgit v1.2.3