# Numpad

# ---------------------------------------------------------------------------
# Focus functions
DestroyFunc Window-FocusInDirection
AddToFunc Window-FocusInDirection
+ I Direction $0 (CurrentPage, AcceptsFocus, !Iconic) Focus

DestroyFunc Window-FocusAndRaiseInDirection
AddToFunc Window-FocusAndRaiseInDirection
+ I Direction $0 (CurrentPage, AcceptsFocus, !Iconic) Focus
+ I Current (Focused) Raise

# ---------------------------------------------------------------------------
# Move functions
DestroyFunc Window-MPAnimatedMove
AddToFunc Window-MPAnimatedMove
+ I Current (HasPointer) AnimatedMove $0 $1 Warp
+ I TestRc (NoMatch) AnimatedMove $0 $1

DestroyFunc Window-Warp-CenterCenter
AddToFunc Window-Warp-CenterCenter
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] / 2 - $[w.height] / 2`p'

DestroyFunc Window-Warp-LeftCenter
AddToFunc Window-Warp-LeftCenter
+ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH-BS-Panel-Left]p `expr $[vp.height] / 2 - $[w.height] / 2`p'

DestroyFunc Window-Warp-LeftTop
AddToFunc Window-Warp-LeftTop
+ I Current Window-MPAnimatedMove $[EWMH-BS-Panel-Left]p $[EWMH-BS-Panel-Top]p

DestroyFunc Window-Warp-CenterTop
AddToFunc Window-Warp-CenterTop
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p $[EWMH-BS-Panel-Top]p'

DestroyFunc Window-Warp-RightTop
AddToFunc Window-Warp-RightTop
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH-BS-Panel-Right] - $[w.width]`p $[EWMH-BS-Panel-Top]p'

DestroyFunc Window-Warp-RightCenter
AddToFunc Window-Warp-RightCenter
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH-BS-Panel-Right] - $[w.width]`p `expr $[vp.height] / 2 - $[w.height] / 2`p'

DestroyFunc Window-Warp-CenterBottom
AddToFunc Window-Warp-CenterBottom
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] / 2 - $[w.width] / 2`p `expr $[vp.height] - $[EWMH-BS-Panel-Bottom] - $[w.height]`p'

DestroyFunc Window-Warp-LeftBottom
AddToFunc Window-Warp-LeftBottom
+ I Current Piperead 'echo Window-MPAnimatedMove $[EWMH-BS-Panel-Left]p `expr $[vp.height] - $[EWMH-BS-Panel-Bottom] - $[w.height]`p'

DestroyFunc Window-Warp-RightBottom
AddToFunc Window-Warp-RightBottom
+ I Current Piperead 'echo Window-MPAnimatedMove `expr $[vp.width] - $[EWMH-BS-Panel-Right] - $[w.width]`p `expr $[vp.height] - $[EWMH-BS-Panel-Bottom] - $[w.height]`p'

# vim:ft=fvwm
