gistfile1.pl

rvmuse () {
    gemsets=$(grep '@' < <(cd ~/.rvm/gems; find . -maxdepth 1 -type d))
    set $gemsets
    x=0
    while [ $# -gt 0 ];do 
	((x=$x+1))
	echo $x"): "$1 >&2
	shift
    done
    read line
    x=0
    set $gemsets
    while [ $# -gt 0 ];do 
	((x=$x+1))
	if [ "$line" = "$x" ]; then
	    eval "rvm use "$(echo $1 | cut -d/ -f2-)
	fi
	shift
    done
}