#!/usr/local/plan9/bin/rc
. /usr/local/plan9/bin/9.rc
. /usr/local/plan9/lib/acme.rc

tag = `{winread tag}
if(! ~ $"tag *Slide+*)
	echo -n 'Font  index guide    Slide- Slide+' | winwrite tag

winctl name `{pwd}^/$1
winctl clean
if(test -e font)
	winctl font `{cat font} >/dev/null >[2=1] || true
winctl get