plan9fox/rc/bin/thesaurus
2011-03-30 18:29:07 +00:00

29 lines
422 B
Bash
Executable file

#!/bin/rc
hget 'http://thesaurus.reference.com/search?q='^$1 |
htmlfmt -l 1000 |
sed -n '/^Main Entry:/,/^Source/ {
/^Source/ q
/^[A-Z].*:/ {
N
s/\n/ /g
}
p
}' | awk -F', ' '{
if(length($0)<=70){
print
next
}
l = 0
for(i = 1; i < NF; i++){
printf "%s ", $i
l += length($i)+1
if(l > 70){
printf "\n\t\t"
l = 2*ENVIRON["tabstop"]
}
}
if(l>0)
printf "\n"
next
}'