#!/bin/bash
#
# Buscador de palabras en el Diccionario de la Real Academia de Lengua Espa~nola
# para la terminal de GNU/Linux.
#
# ChangeLog:
#
#  0.3: 08/dec/2011 por Marco Antonio «smaug» Frias B. <marcoantoniofrias@gmail.com>
#       * Adicion del paginado en el mostrado del resultado.
#       * Simplificaci'on de la funci'on adaptar_palabra a convertir.
#       * Simplificaci'on de la funci'on buscar_palabra a buscar.
#       * Adici'on de caracteres especiales como la di'eresis.
#  0.2: 03/aug/2009 por mch
#       * Adici'on de la b'usqueda de m'as de una palabra.
#  0.1: 27/jan/2009 por aabilio <aabilio@gmail.com>
#       * Publicaci'on del script en la p'agina http://linfox.es.
#

# full path of lynx
LYNX=$(which lynx)

function buscar {
  echo "Buscando la palabra \"$palabra\" en la RAE..."
  echo ""
  $LYNX -dump "http://buscon.rae.es/draeI/SrvltGUIBusUsual?LEMA=$palabra&origen=RAE" | more
  echo ""
}

function convertir {
  palabra=$(echo $palabra | awk '{print tolower($0)}')
  palabra=$(echo $palabra | sed 's/á/%C3%A1/;s/é/%C3%A9/;s/í/%C3%AD/;s/ó/%C3%B3/;s/ú/%C3%BA/')
  palabra=$(echo $palabra | sed 's/ä/%C3%A4/;s/ë/%C3%AB/;s/ï/%C3%AF/;s/ö/%C3%B6/;s/ü/%C3%BC/')
  palabra=$(echo $palabra | sed 's/ñ/%C3%B1/')
}

if [ -z $1 ]; then
  clear
  echo "Diccionario de la RAE para consola"
  echo "Introduce la palabra a buscar:"
  read palabra
  convertir
  buscar
else
  for pal in "$@"; do
    clear
    palabra=$1
    convertir
    buscar
    if [ $# -gt 1 ]; then
      echo "Pulse una tecla para la siguiente palabra... "
      read -n1
    fi
    shift
  done
fi