smallify text
smallify text
Restore
<!-- Two Steps to install, first install this javascript in the head of your document. --> <script type="text/javascript"> <!-- // smallify script 2003 rwedge // www.expandinghead.net var ntxt = ''; var x = ''; var wl = ''; var k = 0; var stor = 0; function make_small() { x = document.myForm.myText.value; if (stor == 0) { document.myForm.restore.value = x; stor = 1; } document.myForm.myText.value = ''; x = (x.replace(/^\s+/,'')).replace(/\s+$/,''); var nl = x.split('\n'); var nt = nl.length; for (eh = 0; eh < nt; eh++) { nl[eh] = nl[eh].replace(/^>/,''); wl = nl[eh].split(/\s+/g); wt = wl.length; var cnt = 10; if (wt == undefined) { wt = 1; } nwt = wt; while (k < wt) { if (wt < 10 ) { cnt = wt; } if (nwt < 10) { cnt = nwt; } for (j = 0; j < cnt; j++) { if ((wl[k] == "") || (wl[k] == undefined)) { cnt = 0; } else ntxt += wl[k]+' '; k++ nwt-- } document.myForm.myText.value += '>'+ntxt+'\n'; ntxt = ''; j = 0; } wl = ''; k = 0; } re_ini(); } function re_ini() { x = ''; wl = ''; k = 0; } //--> </script> <!-- Step 2. Install the form in the body of your document --> <form name="myForm"> <table border="0" width="500" cellspacing="0" cellpadding="0"> <tr> <td colspan="2" align="right"><a href="javascript:void(0)" onClick="document.myForm.myText.value=document.myForm.restore.value" onmouseover="window.status='Restore Original Text'; return true" onmouseout="window.status=''; return true">Restore</a> </td> </tr> <tr> <td colspan="2"><textarea name="myText" cols="60" rows="12" nohighlight autoactivate growable></textarea></td> </tr> <tr> <td align="center" width="250"><input type="button" value=" Smallify " onClick="make_small()"></td><td align="center" width="250"><input type="button" value=" Clear " onClick="document.myForm.myText.value='';stor=0;"></td> </tr> </table><br> <input type="hidden" name="restore" value=""> </form><br>
A text file copy can be found
here
.
