#!/usr/bin/ksh93
# wotd - generates random WOTD (Words of the Day) list from the system
# dictionary file; provides refresh and/or definition lookups.
#
DICT="/usr/share/dict/words"
HISTFILE="/tmp/wotd$$"
touch $HISTFILE
# make # of suggestions +1:
HISTSIZE=4
set -o emacs
header() {
printf '\n Welcome to the KornShell Vocabulary Builder! \n'
}
suggestions() {
WRD="$1"
set -A SUGGEST ${WRD%%?(s|\'s|y|ly|ed|ing|ness)} ${WRD##?(un|re|non|in)} ${WRD%%?(er|ish|ine|iest)}
for WRD in {2..0} ;do
echo "${SUGGEST[$WRD]}" |read -s
done
}
# need either dict(1) or lynx(1) installed for dictionary lookups:
lookup() {
WORD="$1"
while : ;do
clear
if [[ "$(which dict)" ]] ;then
dict "$WORD" |less -ReX
elif [[ "$(which lynx)" ]] ;then
WWWdict="
http://www.dict.org/bin/Dict?Form=Dict2&Database=*&Query=$WORD"
TERM=linux lynx -dump -nolist -cookies "$WWWdict" |tail +18 |more
else
printf '\n\n sorry, neither dict(1) nor lynx(1) was found - ask your sysadmin to fix it.\n'
sleep 3 ;return 1
fi
printf '\n . . . . . \n\n'
read -n1 REPLY?' type "e" to edit word; any other key to continue: '
printf '\n\n'
case "${REPLY}" in
e) suggestions $WORD
read -r -s WORD?' revise word - use up|down arrows for suggestions: '
continue ;;
*) return 0 ;;
esac
done
}
word() {
grep -m8000 "^$1[a-z]*[a-z][a-z]$" $DICT |shuf -n1 -
}
makelist() {
unset allwords
typeset -A allwords
for LTR in {a..z} ;do
allwords[$LTR]="$(word $LTR)"
done
export allwords
}
printlist() {
clear
header
printf '\n Words of the Day \n ---------------- \n\n'
for LTR in {a..z} ;do
printf ' %s) %s\n' $LTR ${allwords[$LTR]}
done
printf '\n ---------------- \n\n'
}
selectword() {
read -r -n1 REPLY?' type [a-z] for definitions; R to refresh, Q to quit: '
printf '\b\n'
case "${REPLY:-'Q'}" in
[a-z]) lookup "${allwords[$REPLY]}" ;;
R) makelist ;;
*|Q) rm $HISTFILE ;exit 0 ;;
esac
}
main() {
makelist
while : ;do
printlist
selectword
done
}
# run
main
