ref: 3e7a249f146ce7fb3b7f482adc6b1e7f3aba5616
dir: /rc/bin/thesaurus/
#!/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 }'