Added paging to the /shortlog action.
[catagits/Gitalist.git] / lib / Gitalist / View / SyntaxHighlight.pm
CommitLineData
7e54e579 1package Gitalist::View::SyntaxHighlight;
2use Moose;
3use Gitalist; # ->path_to
4use namespace::autoclean;
5
6extends 'Catalyst::View';
7
8use Syntax::Highlight::Engine::Kate ();
9use Syntax::Highlight::Engine::Kate::Perl ();
10
c8870bd3 11use HTML::Entities qw(encode_entities);
12
f5da8e7a 13=begin
14
15B<Notes>
16
17What should be done, but isn't currently:
18
19 broquaint> Another Cat question - if I want to have arbitrary things highlighted is pushing things through a View at all costs terribly wrong?
20 broquaint> e.g modifying this slightly to highlight anything (or arrays of anything) http://github.com/broquaint/Gitalist/blob/a7cc1ede5f9729465bb53da9c3a8b300a3aa8a0a/lib/Gitalist/View/SyntaxHighlight.pm
21 t0m> no, that's totally fine.. I'd tend to push the rendering logic into a model, so you end up doing something like: $c->model('SyntaxDriver')->highlight_all($stuff, $c->view('SyntaxHighlight'));
22 broquaint> I'm thinking it's a bad idea because the Controller needs to munge data such that the View knows what to do
23 broquaint> You just blew my mind ;)
24 t0m> ^^ That works _much_ better if you split up your view methods into process & render..
25 t0m> ala TT..
26 t0m> i.e. I'd have 'highlight this scalar' as the ->render method in the view..
27 t0m> And then the 'default' thing (i.e. process method) will do that and shove the output in the body..
28 t0m> but then you can write foreach my $thing (@things) { push(@highlighted_things, $c->view('SyntaxHighlight')->render($thing)); }
29 t0m> and then I'd move that ^^ loop down into a model which actually knows about / abstracts walking the data structures concerned..
30 t0m> But splitting render and process is the most important bit.. :) Otherwise you need to jump through hoops to render things that don't fit 'nicely' into the bits of stash / body that the view uses by 'default'
31 t0m> I wouldn't kill you for putting the structure walking code in the view given you're walking simple arrays / hashes.. It becomes more important if you have a more complex visitor..
32 t0m> (I use Visitor in the design patterns sense)
33 t0m> As the visitor is responsible for walking the structure, delegating to the ->render call in the view which is responsible for actually mangling the content..
34
35=cut
36
7e54e579 37sub process {
38 my($self, $c) = @_;
c8870bd3 39
f5da8e7a 40 for($c->stash->{blobs} ? @{$c->stash->{blobs}} : $c->stash->{blob}) {
41 $_ = $self->highlight($c->stash->{language} => $_);
42 }
43
44 $c->forward('View::Default');
45}
46
47sub highlight {
48 my($self, $lang, $blob) = @_;
49
6cf4366a 50 my $ret;
f5da8e7a 51 if($lang) {
6cf4366a 52 # via http://github.com/jrockway/angerwhale/blob/master/lib/Angerwhale/Format/Pod.pm#L136
53 $ret = eval {
c8870bd3 54 no warnings 'redefine';
55 local *Syntax::Highlight::Engine::Kate::Template::logwarning
56 = sub { die @_ }; # i really don't care
57 my $hl = Syntax::Highlight::Engine::Kate->new(
f5da8e7a 58 language => $lang,
c8870bd3 59 substitutions => {
60 "<" => "&lt;",
61 ">" => "&gt;",
62 "&" => "&amp;",
63 q{'} => "&apos;",
64 q{"} => "&quot;",
65 },
66 format_table => {
67 # convert Kate's internal representation into
68 # <span class="<internal name>"> value </span>
69 map {
70 $_ => [ qq{<span class="$_">}, '</span>' ]
71 }
72 qw/Alert BaseN BString Char Comment DataType
73 DecVal Error Float Function IString Keyword
74 Normal Operator Others RegionMarker Reserved
75 String Variable Warning/,
76 },
77 );
78
f5da8e7a 79 $hl->highlightText($blob);
c8870bd3 80 };
81 warn $@ if $@;
c8870bd3 82 }
6cf4366a 83
84 return $ret || encode_entities($blob);
7e54e579 85}
86
1ef8dc7d 87__PACKAGE__->meta->make_immutable;