diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-25 21:18:14 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-03-25 21:18:14 +0100 |
| commit | 48410cbff2d6315fd3a1d16a6f7635799537a7f3 (patch) | |
| tree | 0451d126e089222970e0dcd7b17933b076df6ba9 | |
| parent | 617a0b99e3b59406bf1b73e2c7f679ab5877c2ef (diff) | |
| download | metatile-48410cbff2d6315fd3a1d16a6f7635799537a7f3.tar metatile-48410cbff2d6315fd3a1d16a6f7635799537a7f3.zip | |
Rename property to stringProperty
darcs-hash:20080325201814-a5988-0ed64be080f177d367a4739c54a718219f24df04
| -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 |