fromWindowOp Window ManageHook fromWindowOp fn ask liftX fn doF id fro

1
2
3
4
5
6
7
8
fromWindowOp :: (Window -> X()) -> ManageHook
fromWindowOp fn = ask >>= \w -> liftX (fn w) >> doF id
fromX :: X () -> ManageHook
fromX op = fromWindowOp $ const op
...
[ className =? "Gimp" --> fromX (sendMessage ...) ]