ref: 15d1425b276495a82621a8d075176a59a512cdf3
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 }'