#!/bin/rc

# a fancy way of starting acme
# i don't use it any more

rfork ne
fn man

columns = `{awk '
/^compressed$/ {
	next
}
{
	if($4-$2 < 800) {print "-c1"} else {print "-c2"}
	exit
}
' /dev/window}

cat /dev/label > /env/olabel
labels = ()
for(a) {
	switch($a) {
	case -c*
		columns = ()
	case *
		pref=''
		if(~ $a /*) {pref='/'}
		t = `{echo $a | sed 's,/, ,g'}
		switch($#t) {
		case -*
			;
		case 2
			labels = ($labels $pref^$t(1)^/^$t(2))
		case 1
			labels = ($labels $pref^$t)
		case *
			i=`{echo $#t '1-p'| dc}
			labels = ($labels $t($i)^/^$t($#t))
		}
	}
}
label -f $"labels

args=$*
if(~ $#args 1) {
	if(test -d $1) {
		cd $1
		args = ()
	}
}

#if(test -e acme.dump) {args = (-l acme.dump $args)}

fn doit {
	plumber
	acme -a $columns -f $fvga -F $fdjs $args
	label -u
	cat /env/olabel > /dev/label
	exit
}
doit