#!/bin/rc
#set save_dir env to default save location
rfork e
if (test -d /dev/wsys)
	wsys=/dev/wsys
if not if (test -d   /mnt/term/dev/wsys)
	wsys=/mnt/term/dev/wsys
if not {
	echo 'no wsys found'
	exit 'no wsys found'
}
id=`{cat /dev/pick}

if(~ $id -1) {
	echo 'no window selected'
	exit 'no window selected'
}

file=`-{cat $wsys/$id/label}^_`{date -f 'YYYY-MM-DD-hh:mm'}^.png
file=`{echo $file | sed 's/ /_/g'}

arg1=$1

if(~ $#save_dir 1) {
	file=$save_dir/$file
	if(! ~ $#arg1 0)
		arg1=$save_dir/$arg1
}

if(~ $#* 0) {
	if(topng < $wsys/$id/window > $file)
		echo -n $file > /dev/snarf
	exit
}
if(~ $#* 1) {
	if(topng $wsys/$id/window > $arg1)
		echo -n $arg1 > /dev/snarf
	exit
}
echo 'usage:' $0 '[out] ' >[1=2]
exit 'usage'