hlfw.ca

rc

ref: 329ac13da6171fe4073cbe02f3fef949e74ad18f
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
		}
	}
}