29 lines
422 B
Bash
29 lines
422 B
Bash
#!/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
|
|
}'
|