Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: (Client side) Perl Syntax Highlighter

by PodMaster (Abbot)
on Mar 12, 2004 at 18:24 UTC ( #336229=note: print w/replies, xml ) Need Help??


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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://336229]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2020-05-29 14:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (169 votes). Check out past polls.

    Notices?