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 | 797300176999f2ffa351b8fce05a2074ab75afca (patch) | |
| tree | 0451d126e089222970e0dcd7b17933b076df6ba9 /XMonad | |
| parent | cd47e45fdec2f9e4a0e69168fa895c60f290d691 (diff) | |
| download | xmonad-797300176999f2ffa351b8fce05a2074ab75afca.tar.gz xmonad-797300176999f2ffa351b8fce05a2074ab75afca.tar.xz xmonad-797300176999f2ffa351b8fce05a2074ab75afca.zip | |
Rename property to stringProperty
darcs-hash:20080325201814-a5988-0ed64be080f177d367a4739c54a718219f24df04.gz
Diffstat (limited to 'XMonad')
| -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 |