twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

updated XPropManage to ManageHook type

Browse Source
This commit is contained in:
joel.suovaniemi 2007-11-22 05:32:03 +00:00
parent baf2ae570d
commit c298c87da1
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
XMonad/Hooks/XPropManage.hs
View File

@ -19,12 +19,15 @@ module XMonad.Hooks.XPropManage (
import Data.Char (chr) import Data.Char (chr)
import Data.List (concat) import Data.List (concat)
import Data.Monoid (mconcat, Endo(..))
import Control.Monad.Reader
import Control.Monad.State
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras
import XMonad import XMonad
import XMonad.ManageHook ((-->))
-- $usage -- $usage
-- --
@ -64,17 +67,12 @@ pmX f w = f w >> return id
pmP :: (WindowSet -> WindowSet) -> Window -> X (WindowSet -> WindowSet) pmP :: (WindowSet -> WindowSet) -> Window -> X (WindowSet -> WindowSet)
pmP f _ = return f pmP f _ = return f
xPropManageHook :: [XPropMatch] -> Window -> X (WindowSet -> WindowSet) xPropManageHook :: [XPropMatch] -> ManageHook
xPropManageHook tms w = withDisplay $ \d -> do xPropManageHook tms = mconcat $ map propToHook tms
fs <- mapM (matchProp d w `uncurry`) tms where
return (foldr (.) id fs) propToHook (ms, f) = liftM and (mapM mkQuery ms) --> mkHook f
mkQuery (a, tf) = fmap tf (getQuery a)
matchProp :: Display -> Window -> [(Atom, [String] -> Bool)] -> (Window -> X (WindowSet -> WindowSet)) -> X (WindowSet -> WindowSet) mkHook func = ask >>= Query . lift . fmap Endo . func
matchProp d w tm tf = do
m <- and `liftM` sequence (map (\(k,f) -> f `liftM` getProp d w k) tm)
case m of
True -> tf w
False -> return id
getProp :: Display -> Window -> Atom -> X ([String]) getProp :: Display -> Window -> Atom -> X ([String])
getProp d w p = do getProp d w p = do
@ -83,9 +81,11 @@ getProp d w p = do
| otherwise = id | otherwise = id
return (filt p prop) return (filt p prop)
getQuery :: Atom -> Query [String]
getQuery p = ask >>= \w -> Query . lift $ withDisplay $ \d -> getProp d w p
splitAtNull :: String -> [String] splitAtNull :: String -> [String]
splitAtNull s = case dropWhile (== (chr 0)) s of splitAtNull s = case dropWhile (== (chr 0)) s of
"" -> [] "" -> []
s' -> w : splitAtNull s'' s' -> w : splitAtNull s''
where (w, s'') = break (== (chr 0)) s' where (w, s'') = break (== (chr 0)) s'