manr: fix
[copyleftie-scripts.git] / 9term
blob419efc0269f127727d6d4893cbbb0ccf78e72582
1 #!/bin/execlineb -WS0
3 multidefine "740 690" { w h }
5 backtick -i -n 9term { defwhich 9term }
6 backtick -i -n root { lsw -r }
7 multisubstitute {
8         importas -u 9term 9term
9         importas -u root root
12 backtick -i -n rootx { wattr w ${root} }
13 backtick -i -n rooty { wattr h ${root} }
14 multisubstitute {
15         importas -u rootx rootx
16         importas -u rooty rooty
19 backtick -i -n x { hoc -e "("${rootx}"-"${w}")/2" }
20 backtick -i -n y { hoc -e "("${rooty}"-"${h}")/2" }
21 multisubstitute {
22         importas -u x x
23         importas -u y y
26 ${9term} -W ${w}x${h}@${x},${y} ${@}