From 48410cbff2d6315fd3a1d16a6f7635799537a7f3 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 25 Mar 2008 21:18:14 +0100 Subject: Rename property to stringProperty darcs-hash:20080325201814-a5988-0ed64be080f177d367a4739c54a718219f24df04 --- XMonad/ManageHook.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index b4996b2..76d9568 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -68,11 +68,11 @@ className = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap resClass $ io -- | A query that can return an arbitrary X property of type String, -- identified by name. -property :: String -> Query String -property p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ getProperty d w p) +stringProperty :: String -> Query String +stringProperty p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ getStringProperty d w p) -getProperty :: Display -> Window -> String -> X (Maybe String) -getProperty d w p = do +getStringProperty :: Display -> Window -> String -> X (Maybe String) +getStringProperty d w p = do a <- getAtom p md <- io $ getWindowProperty8 d a w return $ fmap (map (toEnum . fromIntegral)) md -- cgit v1.2.3