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.

Replies are listed 'Best First'.
Re: Re: (Client side) Perl Syntax Highlighter
by Jaap (Curate) on Mar 12, 2004 at 21:34 UTC
    Hmmm that's pretty nifty. The only problem that remains is how to get the <script .../> tags in.

    Is this something we want on perlmonks?
      Is this something we want on perlmonks?
      Sure, why not? It'd be perlmonks approved javascript (it already exists). It could be optional (a setting) but it doesn't have to be (if javascript is on, it works, otherwise, who cares).

      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.