Blob
1 fn newwindow {2 winctl=`{9p read acme/new/ctl}3 winid=$winctl(1)4 winctl noscroll5 }7 fn winctl {8 echo $* | 9p write acme/$winid/ctl9 }11 fn winread {12 9p read acme/$winid/$113 }15 fn winwrite {16 9p write acme/$winid/$117 }19 fn windump {20 if(! ~ $1 - '')21 winctl dumpdir $122 if(! ~ $2 - '')23 winctl dump $224 }26 fn winname {27 winctl name $128 }30 fn winwriteevent {31 echo $1$2$3 $4 | winwrite event32 }34 fn windel {35 if(~ $1 sure)36 winctl delete37 if not38 winctl del39 }41 fn wineventloop {42 . <{winread event >[2]/dev/null | acmeevent}43 }