moveW Position Position Window moveW withDisplay moveWindow moveWindow

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
moveW :: Position -> Position -> Window -> X ()
moveW x y w = withDisplay $ moveWindow' w
moveWindow' :: Position -> Position -> Window -> Display -> X ()
moveWindow' x y w d = do float w
io $ moveWindow d w x y
fromWindowOp :: (Window -> X()) -> ManageHook
fromWindowOp fn = ask >>= \w -> liftX (fn w) >> doF id
doMove :: Position -> Position -> ManageHook
doMove x y = fromWindowOp (moveW x y)
...
[ className =? "xxx" --> doMove 150 300,