#!/bin/rc
# Play - play a list of audio files
# usage: Play
# requires:
#	- que
#
# bugs:
#	- playlist must be full paths to audio files
#	- window tag must use full path
#		e.g., /usr/glenda/lib/playlist/example

echo cleartag >/mnt/acme/$winid/ctl
echo ' Pause Skip Quit | Repeat ' >/mnt/acme/$winid/tag

while(){
	if(! test -d /mnt/acme/$winid) exit
	if(! grep -s '<--' /mnt/acme/$winid/body &&
	     grep -s Norepeat /mnt/acme/$winid/tag) exit
	song=`{que $%}
	echo clean >/mnt/acme/$winid/ctl
	echo get >/mnt/acme/$winid/ctl
	play $song >/dev/null >[2=1]
}