diff options
| -rw-r--r-- | XMonad/ManageHook.hs | 8 |
1 files 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 |