hlfw.ca

rc

ref: 156b135285622f6a2583072708a56f46f41a1137
dir: /dropbar/

View raw version 
#!/bin/rc

while(line=`{read}){
	switch($line){
	case '*○'
		# we don't have external window control yet
		break
	case '*◌'
		break
	case '*◍'
		break
	case *
		l=`{echo $line | sed 's/[1-6] //'}
		if(! ~ $#l 0 && test -f $home/lib/namespace.$l){
			rm /srv/work >[2]/dev/null
			unmount /mnt/work >[2]/dev/null
			/$objtype/bin/plumb -t text -d notify -a 'message=none' none
		}
	}
}