shithub: Slide

Info  •  Files  •  Log  •  Branches

Slide: add

--- /dev/null

+++ b/Slide

@@ -1,0 +1,5 @@

+#!/bin/rc

+

+echo name `{pwd}^/$1 > /mnt/acme/$winid/ctl

+echo clean >  /mnt/acme/$winid/ctl

+echo get > /mnt/acme/$winid/ctl

--- /dev/null

+++ b/Slide+

@@ -1,0 +1,13 @@

+#!/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

--- /dev/null

+++ b/Slide-

@@ -1,0 +1,14 @@

+#!/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