Re: (Client side) Perl Syntax Highlighter

[PodMaster]

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"> .

[Jaap]

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?

[PodMaster]

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).