http://qs321.pair.com?node_id=11118831


in reply to Re^2: Breathing life into the (Emacs) cperl-mode
in thread Breathing life into the (Emacs) cperl-mode

> it isn't that easy to query the fontification of a particular character in an Emacs buffer from Perl

Just use htmlize and your favourite Perl HTML parser ;-)

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Replies are listed 'Best First'.
Re^4: Breathing life into the (Emacs) cperl-mode
by haj (Vicar) on Jul 02, 2020 at 19:40 UTC

    Thanks, but I pass :) For our notorious snippet $a++ / $b; # /; htmlize provides:

    $a++ <span class="constant">/</span>
     <span class="string"> </span>
     <span class="variable-name">$b</span>
     <span class="string">; # </span>
     <span class="constant">/</span>;

    [download]

    That surely is a lot of noise. As you can see (you can, can't you?), this is the output from a broken cperl-mode.

    My preferred approach for large-scale fontification tests would be Lindydancer's faceup markup, which together with the other repositories by the same author are really awesome tools to debug and test font-lock features.

    Advertisement: As a recent addition, I added Damian Conway's "Perl Best Practice" recommendations for indenting code to M-x cperl-indent-style. I guess that amongst Perlers PBP is waaay more popular than K&R, BSD, or GNU conventions.

[reply]
[d/l]
      But after your fix, it gives a bit more sense: 
      <span class="variable-name">$a</span>++ / <span class="variable-name">
+$b</span>; <span class="comment-delimiter"># </span><span class="comm
+ent">/;
</span>

      [download]
      map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
[reply]
[d/l]
[select]

In Section Meditations