Simplify utility window query

1 files changed, 1 insertions, 13 deletions

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