#!/bin/rc
# Slide+ - go to next slide
# usage: Slide+
# requires:
#	- Slide
#	- slides in current directory
#		e.g., /plan9/rocks/^(1 2 3 ... index)
# see also: Slide-

tag=`{cat /mnt/acme/$winid/tag}
current=`{basename $tag(1)}
currentx=`{grep -n '^'$current'([ 	]|$)' index | sed 's/:.*//'}
pagex=`{echo $currentx + 1 | hoc}
page=`{sed -n $pagex^p index | awk '{print $1}'}
if(~ $#page 0){
	echo no such page
	exit 0
}

Slide $page