ref: 1fe150f1ed46a8c1a65187b3088274e067493639
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 }'