wcntr

   1 #!/bin/execlineb -WS1
   2 # wcntr - center the given window(s)
   3
   4 backtick -in progname { basename ${0} }
   5 backtick -in rootx { wonr wattr w }
   6 backtick -in rooty { wonr wattr h }
   7
   8 multisubstitute {
   9         importas -u progname progname
  10         importas -u rootx rootx
  11         importas -u rooty rooty
  12 }
  13
  14 forx -p w { ${@} }
  15         importas -u w w
  16         backtick -in winx { wattr w ${w} }
  17         backtick -in winy { wattr h ${w} }
  18
  19         multisubstitute {
  20                 importas -u winx winx
  21                 importas -u winy winy
  22         }
  23         backtick -in newx { hoc -e "("${rootx}"-"${winx}")/2" }
  24         backtick -in newy { hoc -e "("${rooty}"-"${winy}")/2" }
  25
  26         multisubstitute {
  27                 importas -u newx newx
  28                 importas -u newy newy
  29         }
  30         wtp ${newx} ${newy} ${winx} ${winy} ${w}