rae

#!/bin/bash
# RAE-CLI 0.17, consulta el Diccionario de la RAE desde la terminal.

# Función de ayuda
mostrar_ayuda() {
cat <<EOF
RAE-CLI 0.17, consulta el Diccionario de la RAE desde la terminal.

Uso:
  $0 [PALABRA]      -> Muestra la primera definición de la palabra.
  $0 -t [PALABRA]   -> Muestra todas las definiciones de la palabra.
  $0 -c  [PALABRA]  -> Conjugaciones (si existen).
  $0 -a  [PALABRA]  -> Anagramas de la palabra.
  $0 -A             -> Palabra aleatoria.
  $0 -d             -> Palabra del día.
  $0 -E  [LETRAS]   -> Lista palabras que empiecen con LETRAS.
  $0 -T  [LETRAS]   -> Lista palabras que terminen con LETRAS.
  $0 -C  [LETRAS]   -> Lista palabras que contengan LETRAS.
  $0 --ayuda        -> Muestra esta ayuda.

Las definiciones son propiedad de la RAE, este script solo facilita su consulta vía terminal.

Envíe información sobre errores y sugerencias a <sardach@uwu.mx>.
EOF
}

# Verificar si elinks está instalado
if ! command -v elinks &> /dev/null; then
  echo "Elinks no está instalado. Por favor, instálalo para usar este script."
  exit 1
fi

# Función para obtener texto de la RAE
obtener_texto() {
  elinks -dump -no-numbering -no-references "https://dle.rae.es/$1"
}

# Función para obtener HTML crudo de la RAE
obtener_html() {
  elinks -source "https://dle.rae.es/$1"
}

# Filtrar definiciones relevantes
filtrar_definiciones() {
echo "$1" | sed -n '/Caixa/,/Palabra del día/ {
  /Caixa/d
  /Palabra del día/d
  /•/d  
  /Artículo/d
  /Conjugación/d
  /Sinónimos o afines/d
  /Antónimos u opuestos/d
  p
}'
}

# Validar que se proporcionaron argumentos
[ -z "$1" ] && { echo "Faltan argumentos. Usa --ayuda para más información."; exit 1; }

# Procesar opciones
case "$1" in
  --ayuda)
    mostrar_ayuda
    ;;
  -c)
    texto=$(obtener_texto "$2")
    echo "$texto" | sed -n '/^Conjugación de/,/^Sinónimos/ { /Sinónimos/!p }'
    ;;
  -E)
    texto=$(obtener_texto "$2?m=31")
    echo "$texto" | sed -n '/Listado de lemas que/,/Anterior/p' | sed '/Palabra del día/,$d'
    ;;
  -T)
    texto=$(obtener_texto "$2?m=32")
    echo "$texto" | sed -n '/Listado de lemas que/,/Anterior/p' | sed '/Palabra del día/,$d'
    ;;
  -C)
    texto=$(obtener_texto "$2?m=33")
    echo "$texto" | sed -n '/Listado de lemas que/,/Anterior/p' | sed '/Palabra del día/,$d'
    ;;
  -a)
    texto=$(obtener_texto "$2?m=anagram")
    echo "$texto" | sed -n '/Anagramas/,/Anterior/p' | sed '/Palabra del día/,$d'
    ;;
  -A)
    w=$((RANDOM % 100001))
    pagina=$(obtener_texto "?w=$w&m=random")
    filtrar_definiciones "$pagina"
    ;;
  -d)
    html=$(obtener_html "?")
    palabra_del_dia=$(echo "$html" | sed -n 's/.*<span class="c-word-day__word">\([^<]*\)<\/span>.*/\1/p')

    if [ -n "$palabra_del_dia" ]; then
      definiciones=$(obtener_texto "$palabra_del_dia")
      filtrar_definiciones "$definiciones"
    else
      echo "No se pudo determinar la palabra del día."
    fi
    ;;
  -t)
    pagina=$(obtener_texto "$2")
    filtrar_definiciones "$pagina"
    ;;
  *)
    texto=$(obtener_texto "$1")
    filtrar_definiciones "$texto" | sed '/2./,$d'
    ;;
esac