#!/bin/rc
# 2016-11-17T23:50:29-0500
# -c Launch https://bitbucket.org/mischief/chat
# -w Launch http://9front.org/extra/rc/wircrc
# -r Reposition windows
rfork en
rnet=mars2.inri.net
scr=(`{cat /dev/draw/new >[2]/dev/null})
w=$scr(11)
h=$scr(12)
#chans=(inferno plan9 9front cat-v freebsd go-nuts go-plan9 harvey metabug plan9chan tba)
chans=(plan9 9front cat-v freebsd go-nuts metabug)
fn getwin{for(i in $*){grep $i /dev/wsys/*/label | sed 1q | awk -F'/' '{print $4;}'}}
fn resize{
	if(! ~ $#$1 0)
		for(i in $$1)
			{echo current; echo resize -r $*(2-)}  >/dev/wsys/$i/wctl
}
fn usage {
	echo usage: $argv0 '[ -crw ]' >[1=2]
	exit usage
}
switch($1){
case -r
	freenode=`{getwin '^freenode$' '^chat.freenode.net$' '^irc.freenode.net$' '^tcp!chat.freenode.net!6667$' || getwin }
	cpustanleyliebercom=`{getwin '^cpu.stanleylieber.com$' '^tcp!cpu.stanleylieber.com!6667$'}
	sampuru=`{getwin sampuru}
	tba=`{getwin '#tba'}
	inferno=`{getwin '#inferno'}
	plan9=`{getwin '#plan9'}
	plan9chan=`{getwin '#plan9chan'}
	9front=`{getwin '#9front'}
	freebsd=`{getwin '#freebsd'}
	metabug=`{getwin '#metabug'}
	gonuts=`{getwin '#go-nuts'}
	harvey=`{getwin '#harvey'}
	goplan9=`{getwin '#go-plan9'}
	aiju=`{getwin aiju}
	catv=`{getwin '#cat-v'}
	if(~ $w 1280 && ~ $h 1024){
		resize freenode 2 0 641 88
		resize inferno 2 178 641 289
		resize plan9 2 284 641 416
		resize 9front 2 412 641 552
		resize catv 2 548 641 1024
		resize sampuru 2 84 641 182
		resize aiju 2 412 641 552
	}
	if not if(~ $w 1366 1376 && ~ $h 768){
		resize freenode 2 0 678 72
		resize cpustanleyliebercom 2 0 678 72
		resize sampuru 2 68 678 159
		resize tba 2 68 678 159
		resize inferno 2 155 678 255
		resize plan9 2 68 678 159
		resize 9front 2 68 678 159
		resize freebsd 2 155 678 255
		resize metabug 2 251 678 360
		resize harvey 2 251 678 360
		resize plan9chan 2 251 678 360
		resize gonuts 2 68 678 159
		resize goplan9 2 251 678 360
		resize aiju 2 251 678 360
		resize catv 2 356 678 768
	}
	if not if(~ $w 1400 1408 && ~ $h 1050){
		resize freenode 2 0 704 72
		resize cpustanleyliebercom 2 0 704 72
		resize sampuru 2 68 704 177
		resize tba 2 68 704 177
		resize 9front 2 68 704 177
		resize inferno 2 173 704 290
		resize goplan9 2 173 704 290
		resize harvey 2 173 704 290
		resize plan9chan 2 173 704 290
		resize gonuts 2 173 704 290
		resize plan9 2 173 704 290
		resize freebsd 2 286 704 412
		resize metabug 2 408 704 551
		resize aiju 2 408 704 551
		resize catv 2 547 704 1050
	}
	if not if(~ $w 1440 && ~ $h 900){
		resize freenode 2 0 720 73
		resize cpustanleyliebercom 2 0 720 73
		resize sampuru 2 69 720 160
		resize tba 2 69 720 160
		resize inferno 2 156 720 252
		resize plan9 2 156 720 252
		resize 9front 2 248 720 347
		resize freebsd 2 343 720 448
		resize metabug 2 343 720 448
		resize harvey 2 343 720 448
		resize plan9chan 2 343 720 448
		resize gonuts 2 343 720 448
		resize goplan9 2 343 720 448
		resize aiju 2 343 720 448
		resize catv 2 444 720 900
	}
	if not if(~ $w 1600 && ~ $h 900){
		resize freenode 2 0 800 69
		resize cpustanleyliebercom 2 0 800 69
		resize sampuru 2 65 800 160
		resize tba 2 65 800 160
		resize inferno 2 156 800 258
		resize plan9 2 156 800 258
		resize 9front 2 254 800 362
		resize harvey 2 358 800 475
		resize metabug 2 358 800 475
		resize gonuts 2 358 800 475
		resize goplan9 2 358 800 475
		resize plan9chan 2 358 800 475
		resize aiju 2 358 800 475
		resize catv 2 471 800 900
	}
	if not if(~ $w 1600 && ~ $h 1200){
		resize freenode 2 0 800 78
		resize cpustanleyliebercom 2 0 800 78
		resize sampuru 2 74 800 176
		resize tba 2 74 800 176
		resize inferno 2 278 800 463
		resize plan9 2 278 800 463
		resize harvey 2 459 800 670
		resize metabug 2 459 800 670
		resize gonuts 2 459 800 670
		resize goplan9 2 459 800 670
		resize plan9chan 2 459 800 670
		resize 9front 2 459 800 670
		resize aiju 2 459 800 670
		resize catv 2 666 800 1400
	}
	if not if(~ $w 1680 && ~ $h 1050){
		resize freenode 2 0 840 89
		resize inferno 2 184 840 308
		resize plan9 2 304 840 465
		resize 9front 2 461 840 607
		resize catv 2 603 840 1050
		resize sampuru 2 85 840 188
		resize aiju 2 461 840 607
	}
	if not if(~ $w 1920 && ~ $h 1080){
		resize freenode 2 0 800 72
		resize cpustanleyliebercom 2 0 800 72
		resize sampuru 2 68 800 177
		resize tba 2 68 800 177
		resize inferno 2 173 800 290
		resize plan9 2 173 800 290
		resize harvey 2 408 800 551
		resize freebsd 2 408 800 551
		resize metabug 2 408 800 551
		resize gonuts 2 408 800 551
		resize goplan9 2 408 800 551
		resize plan9chan 2 408 800 551
		resize 9front 2 286 800 412
		resize aiju 2 408 800 551
		resize catv 2 547 800 1080
	}
case -c
	rimport -p $rnet /net || {echo cannot import /net; exit}
	irc=tcp!chat.freenode.net!6667 nick=_sl window -m -scroll chat
	irc=tcp!cpu.stanleylieber.com!6667 nick=_sl window -m -scroll chat
case -w
	rimport -p mars2.inri.net /net || {echo cannot import /net; exit}
	user=stanleylieber wircrc &
	sleep 10
	wstr=(wtype irc.freenode.net)
	>/n/wircrc/data1 {
		echo $wstr NICK stanleylieber
		echo $wstr NickServ identify `{cat $home/sites/freenode}
		echo $wstr NICK _sl
		for(i in $chans)
			echo $wstr /j '#'^$i
	}
case *
	usage
}