ref: 646328ecfaf70d56ef290b1ad441cca916d3e8c6
dir: /Slide-/
#!/bin/rc
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