#!/bin/sh
# elvis: rhyme		-- Search for rhymes et al using Lycos Rhyme (http://rhyme.lycos.com)
. surfaw || exit 1

w3_config_hook () {
def   SURFAW_rhyme_method perfect
}

w3_usage_hook () {
    cat <<EOF
Usage: $w3_argv0 [options] [search words]...
Description:
  Surfaw search for rhymes and other word correlations using
  Lycos Rhyme (http://rhyme.lycos.com/)
Example:
  \$ rhyme Julian
  \$ rhyme -rel surfer
Results:
  Hurclean St. Julien.
  surfboarder, bather, natator, swimmer
Local options:
  -method=                      Type of word correlation to search for
          prefect       |       Perfect rhyme
	  syn		|	Synonyms
	  hom		|	Homophones
	  cons		|	Consonsant rhymes only
	  rel		|	Semantically related words
	  sub		|	Phrases
	  spell		|	Similar spellings
	  pic		|	Pictures
	  shake		|	Match with Shakespeare archives
	  def			Find wordnet definition
                                Default: $SURFAW_rhyme_method
				Environment: SURFAW_rhyme_method
EOF
    w3_global_usage
}

w3_parse_option_hook () {
    opt="$1"
    optarg="$2"
    case "$opt" in
	-method=*) setopt   SURFAW_rhyme_method $optarg	;;
	*) return 1 ;;
    esac
    return 0
}

w3_config
w3_parse_args "$@"
# w3_args now contains a list of arguments
if test -z "$w3_args"; then
    w3_browse_url http://rhyme.lycos.com/
else
    escaped_args=`w3_url_of_arg $w3_args`
    w3_browse_url "http://rhyme.lycos.com/r/rhyme.cgi?Word=${escaped_args}&typeofrhyme=${SURFAW_rhyme_method}&org1=syl&org2=l"
fi