shithub: Slide

ref: 646328ecfaf70d56ef290b1ad441cca916d3e8c6
dir: /Slide+/

View raw version 
#!/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