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 ...) ]