| rsc | 8a9c112 | 2005-01-04 22:12:12 +0000 | [diff] [blame] | 1 | fn newwindow { |
| 2 | winctl=`{9p read acme/new/ctl} |
| 3 | winid=$winctl(1) |
| 4 | winctl noscroll |
| 5 | } |
| 6 | |
| 7 | fn winctl { |
| rsc | 0621743 | 2006-06-30 04:59:35 +0000 | [diff] [blame] | 8 | echo $* | 9p write acme/$winid/ctl |
| rsc | 8a9c112 | 2005-01-04 22:12:12 +0000 | [diff] [blame] | 9 | } |
| 10 | |
| 11 | fn winread { |
| rsc | 0621743 | 2006-06-30 04:59:35 +0000 | [diff] [blame] | 12 | 9p read acme/$winid/$1 |
| rsc | 8a9c112 | 2005-01-04 22:12:12 +0000 | [diff] [blame] | 13 | } |
| 14 | |
| 15 | fn winwrite { |
| rsc | 0621743 | 2006-06-30 04:59:35 +0000 | [diff] [blame] | 16 | 9p write acme/$winid/$1 |
| rsc | 8a9c112 | 2005-01-04 22:12:12 +0000 | [diff] [blame] | 17 | } |
| 18 | |
| 19 | fn windump { |
| 20 | if(! ~ $1 - '') |
| 21 | winctl dumpdir $1 |
| 22 | if(! ~ $2 - '') |
| 23 | winctl dump $2 |
| 24 | } |
| 25 | |
| 26 | fn winname { |
| 27 | winctl name $1 |
| 28 | } |
| 29 | |
| 30 | fn winwriteevent { |
| 31 | echo $1$2$3 $4 | winwrite event |
| 32 | } |
| 33 | |
| 34 | fn windel { |
| 35 | if(~ $1 sure) |
| 36 | winctl delete |
| 37 | if not |
| 38 | winctl del |
| 39 | } |
| 40 | |
| 41 | fn wineventloop { |
| 42 | . <{winread event >[2]/dev/null | acmeevent} |
| 43 | } |
