http://qs1969.pair.com?node_id=336229


in reply to (Client side) Perl Syntax Highlighter

Here's a few additions to make the javascript completely unobtrusive :)(all you add is the <script src...</script> and that's it)
addEvent(window, "load", FunHighlight); function addEvent(obj, evType, fn){ /* adds an eventListener for browsers which support it Written by Scott Andrew: nice one, Scott */ if (obj.addEventListener){ obj.addEventListener(evType, fn, true); return true; } else if (obj.attachEvent){ var r = obj.attachEvent("on"+evType, fn); return r; } else { return false; } } function FunHighlight() { // We don't actually need createElement, but we do // need good DOM support, so this is a good check. if (!document.createElement) return; pres = document.getElementsByTagName("tt"); for(var prei=0; prei < pres.length; prei++) { var pre = pres[prei]; if( pre.className == "code") { HighlightCode(pre); } } }
This of course relies on the fact that <code> tags translate into <pre><tt class="code"><font size="-1"> .

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.