Commit | Line | Data |
---|---|---|
3b69df7a MG |
1 | package Plack::App::Gruntmaster::HTML; |
2 | use v5.14; | |
3 | use parent qw/Exporter/; | |
4 | our @EXPORT = qw/render render_article/; | |
5 | ||
6 | use File::Slurp qw/read_file/; | |
cc11db2f MG |
7 | use HTML::Element::Library; |
8 | use HTML::TreeBuilder; | |
3b69df7a MG |
9 | use POSIX qw//; |
10 | use Data::Dumper qw/Dumper/; | |
11 | ||
127d5b70 MG |
12 | my $optional_end_tags = {%HTML::Tagset::optionalEndTag, tr => 1, td => 1, th => 1}; |
13 | ||
3b69df7a | 14 | sub ftime ($) { POSIX::strftime '%c', localtime shift } |
17a06386 | 15 | sub literal ($) { |
f8a4fa09 MG |
16 | my ($html) = @_; |
17 | return unless $html; | |
17a06386 MG |
18 | my $b = HTML::TreeBuilder->new; |
19 | $b->ignore_unknown(0); | |
f8a4fa09 | 20 | $b->parse($html); |
127d5b70 | 21 | HTML::Element::Library::super_literal $b->guts->as_HTML(undef, undef, $optional_end_tags); |
17a06386 | 22 | } |
3b69df7a MG |
23 | |
24 | sub HTML::Element::edit_href { | |
25 | my ($self, $sub) = @_; | |
26 | local $_ = $self->attr('href'); | |
27 | $sub->(); | |
28 | $self->attr(href => $_); | |
29 | } | |
30 | ||
31 | sub HTML::Element::iter3 { | |
32 | my ($self, $data, $code) = @_; | |
33 | my $orig = $self; | |
34 | my $prev = $orig; | |
35 | for my $el (@$data) { | |
36 | my $current = $orig->clone; | |
37 | $code->($el, $current); | |
38 | $prev->postinsert($current); | |
39 | $prev = $current; | |
40 | } | |
41 | $orig->detach; | |
42 | } | |
43 | ||
44 | sub HTML::Element::fid { shift->look_down(id => shift) } | |
28ec8060 | 45 | sub HTML::Element::fclass { shift->look_down(class => qr/\b$_[0]\b/) } |
3b69df7a MG |
46 | |
47 | sub HTML::Element::namedlink { | |
48 | my ($self, $id, $name) = @_; | |
49 | $name = $id unless $name =~ /[[:graph:]]/; | |
50 | $self = $self->find('a'); | |
51 | $self->edit_href(sub {s/id/$id/}); | |
52 | $self->replace_content($name); | |
53 | } | |
54 | ||
4b3f09fe MG |
55 | my %page_cache; |
56 | for (<tmpl/*>) { | |
57 | my ($tmpl, $lang) = m,tmpl/(\w+)\.(\w+),; | |
cc11db2f | 58 | my $builder = HTML::TreeBuilder->new; |
4b3f09fe MG |
59 | $builder->ignore_unknown(0); |
60 | $page_cache{$tmpl, $lang} = $builder->parse_file($_); | |
61 | } | |
62 | ||
3b69df7a MG |
63 | sub render { |
64 | my ($tmpl, $lang, %args) = @_; | |
65 | $lang //= 'en'; | |
66 | my $meat = _render($tmpl, $lang, %args); | |
e8147a94 MG |
67 | my $html = _render('skel', $lang, %args, meat => $meat); |
68 | if ($tmpl eq 'pb_entry') { # Move sidebar to correct position | |
69 | my $builder = HTML::TreeBuilder->new; | |
70 | $builder->ignore_unknown(0); | |
71 | my $tree = $builder->parse_content($html); | |
72 | $tree->fid('content')->postinsert($tree->fid('sidebar')); | |
73 | $html = $tree->as_HTML(undef, undef, $optional_end_tags) | |
74 | } | |
75 | $html | |
3b69df7a MG |
76 | } |
77 | ||
78 | sub render_article { | |
6533844f | 79 | my ($art, $lang, %args) = @_; |
3b69df7a MG |
80 | $lang //= 'en'; |
81 | my $title = read_file "a/$art.$lang.title"; | |
57566ce2 | 82 | chomp $title; |
3b69df7a | 83 | my $meat = read_file "a/$art.$lang"; |
6533844f | 84 | _render('skel', $lang, title => $title , meat => $meat, %args) |
3b69df7a MG |
85 | } |
86 | ||
87 | sub _render { | |
88 | my ($tmpl, $lang, %args) = @_; | |
4b3f09fe | 89 | my $tree = $page_cache{$tmpl, $lang}->clone or die "No such template/language combination: $tmpl/$lang\n"; |
3b69df7a MG |
90 | $tree = $tree->guts unless $tmpl eq 'skel'; |
91 | $tree->defmap(smap => \%args); | |
92 | my $process = __PACKAGE__->can("process_$tmpl"); | |
93 | $process->($tree, %args) if $process; | |
6533844f MG |
94 | $_->detach for $tree->look_down(static => $args{static} ? 'no' : 'yes'); |
95 | $_->attr('static', undef) for $tree->look_down(sub {$_[0]->attr('static')}); | |
13bd6143 | 96 | $_->attr('smap', undef) for $tree->look_down(sub {$_[0]->attr('smap')}); |
127d5b70 | 97 | $tree->as_HTML(undef, undef, $optional_end_tags); |
3b69df7a MG |
98 | } |
99 | ||
100 | sub process_skel { | |
101 | my ($tree, %args) = @_; | |
102 | $tree->content_handler( | |
103 | title => $args{title}, | |
104 | content => literal $args{meat}); | |
105 | } | |
106 | ||
107 | sub process_us_entry { | |
108 | my ($tree, %args) = @_; | |
109 | $tree->fid($_)->attr('href', "/$_/?owner=$args{id}") for qw/log pb/; | |
f1c090e7 | 110 | $tree->fid('track_user')->attr('data-user', $args{id}); |
9a8a3012 MG |
111 | my @solved = map { $_->{solved} ? ($_->{problem}) : () } @{$args{problems}}; |
112 | my @attempted = map { !$_->{solved} ? ($_->{problem}) : () } @{$args{problems}}; | |
113 | ||
114 | my $pbiter = sub { | |
115 | my ($data, $li) = @_; | |
116 | $li->find('a')->namedlink($data); | |
117 | }; | |
118 | $tree->fid('solved')->find('li')->iter3(\@solved, $pbiter); | |
119 | $tree->fid('attempted')->find('li')->iter3(\@attempted, $pbiter); | |
120 | $tree->fid('solved_count')->replace_content(scalar @solved); | |
121 | $tree->fid('attempted_count')->replace_content(scalar @attempted); | |
122 | ||
123 | my $ctiter = sub { | |
124 | my ($data, $td) = @_; | |
dc6ca3bc | 125 | $td->fclass('contest')->namedlink($data->{contest}, $data->{contest_name}); |
9a8a3012 MG |
126 | $td->fclass('score')->replace_content($data->{score}); |
127 | $td->fclass('rank')->replace_content($data->{rank}); | |
128 | }; | |
129 | $tree->find('table')->find('tbody')->find('tr')->iter3($args{contests}, $ctiter); | |
3b69df7a MG |
130 | } |
131 | ||
132 | sub process_us { | |
133 | my ($tree, %args) = @_; | |
c5ff0b09 MG |
134 | my $iter = sub { |
135 | my ($data, $tr) = @_; | |
136 | $tr->fclass('user')->namedlink($data->{id}, $data->{name}); | |
137 | $tr->fclass($_)->replace_content($data->{$_}) for qw/solved attempted contests/; | |
138 | }; | |
139 | $tree->find('tbody')->find('tr')->iter3($args{us}, $iter); | |
3b69df7a MG |
140 | } |
141 | ||
142 | sub process_ct_entry { | |
143 | my ($tree, %args) = @_; | |
144 | $_->edit_href (sub {s/contest_id/$args{id}/}) for $tree->find('a'); | |
fd15256b | 145 | $tree->fid('editorial')->detach unless $args{finished}; |
3b69df7a | 146 | $tree->fid('links')->detach unless $args{started}; |
20777d84 MG |
147 | my $status = ($args{time} < $args{start} ? 'starts' : 'ends'); |
148 | $tree->fclass('timer')->attr('data-stop', $status eq 'ends' ? $args{stop} : $args{start}); | |
3b69df7a MG |
149 | $tree->content_handler( |
150 | start => ftime $args{start}, | |
151 | stop => ftime $args{stop}, | |
20777d84 | 152 | status => $status, |
3b69df7a | 153 | description => literal $args{description}); |
00398f5c | 154 | $tree->fid('ctcountdown')->detach if $args{time} >= $args{stop}; |
3b69df7a MG |
155 | } |
156 | ||
157 | sub process_ct { | |
158 | my ($tree, %args) = @_; | |
159 | my $iter = sub { | |
160 | my ($data, $tr) = @_; | |
161 | $data->{$_} = ftime $data->{$_} for qw/start stop/; | |
162 | $tr->hashmap(class => $data, [qw/name owner/]); | |
163 | $tr->fclass('name')->namedlink($data->{id}, $data->{name}); | |
164 | $tr->fclass('owner')->namedlink($data->{owner}, $data->{owner_name}); | |
165 | }; | |
166 | $args{$_} ? $tree->fid($_)->find('tbody')->find('tr')->iter3($args{$_}, $iter) : $tree->fid($_)->detach for qw/running pending finished/; | |
167 | } | |
168 | ||
169 | sub process_pb_entry { | |
170 | my ($tree, %args) = @_; | |
171 | $tree->fid('owner')->edit_href(sub{s/owner_id/$args{owner}/}); | |
172 | $tree->fid('job_log')->edit_href(sub{s/problem_id/$args{id}/}); | |
e4d5bdf5 | 173 | $tree->fid('solution')->edit_href(sub{s/problem_id/$args{id}/}); |
3b69df7a MG |
174 | $tree->content_handler( |
175 | statement => literal $args{statement}, | |
6eb88ef9 | 176 | level => ucfirst $args{level}, |
3b69df7a MG |
177 | author => $args{author}, |
178 | owner => $args{owner_name} || $args{owner}); | |
14582b6f MG |
179 | if ($args{limits}) { |
180 | my @limits = (@{$args{limits}}, {format => 'Other', timeout => $args{timeout} }); | |
181 | @limits = map { sprintf '%s (%s)', @{$_}{qw/timeout format/} } @limits; | |
182 | $tree->look_down(smap => 'timeout')->replace_content(join ', ', @limits); | |
183 | } | |
9a4806b3 | 184 | if ($args{contest_stop}) { |
e4d5bdf5 MG |
185 | $tree->fid('solution')->detach; |
186 | $tree->fid('solution_modal')->detach; | |
20777d84 MG |
187 | my $score = $tree->fid('score'); |
188 | $score->attr('data-start' => $args{open_time}); | |
189 | $score->attr('data-stop' => $args{contest_stop}); | |
190 | $score->attr('data-value' => $args{value}); | |
191 | $tree->fid('countdown')->attr('data-stop' => $args{contest_stop}); | |
9a4806b3 | 192 | } else { |
bca1707c | 193 | $tree->fid('job_log')->edit_href(sub{$_ .= "&private=$args{private}"}) if $args{private}; |
c016b644 | 194 | $tree->fid('solution')->detach unless $args{solution}; |
9a4806b3 | 195 | $_->detach for $tree->fclass('rc'); # requires contest |
0f578ab0 | 196 | $tree->fid('solution_modal')->replace_content(literal $args{solution}); |
9a4806b3 | 197 | } |
3b69df7a | 198 | if ($args{cansubmit}) { |
a221db10 | 199 | $tree->fid('nosubmit')->detach; |
3b69df7a MG |
200 | $tree->look_down(name => 'problem')->attr(value => $args{id}); |
201 | my $contest = $tree->look_down(name => 'contest'); | |
7e158d3c MG |
202 | $contest->attr(value => $args{args}{contest}) if $args{args}{contest}; |
203 | $contest->detach unless $args{args}{contest} | |
3b69df7a | 204 | } else { |
a221db10 | 205 | $tree->fid('nosubmit')->find('a')->edit_href(sub{s/id/$args{id}/}); |
3b69df7a MG |
206 | $tree->fid('submit')->detach |
207 | } | |
208 | } | |
209 | ||
e4d5bdf5 MG |
210 | sub process_sol { |
211 | my ($tree, %args) = @_; | |
212 | $tree->content_handler(solution => literal $args{solution}); | |
213 | } | |
214 | ||
3b69df7a MG |
215 | sub process_pb { |
216 | my ($tree, %args) = @_; | |
217 | my $titer = sub { | |
218 | my ($data, $tr) = @_; | |
219 | $tr->set_child_content(class => 'author', $data->{author}); | |
220 | $tr->fclass('name')->namedlink($data->{id}, $data->{name}); | |
221 | $tr->fclass('name')->find('a')->edit_href(sub {$_ .= "?contest=$args{contest}"}) if $args{contest}; | |
222 | $tr->fclass('owner')->namedlink($data->{owner}, $data->{owner_name}); | |
3994b2a7 | 223 | $tr->find('td')->attr(class => $tr->find('td')->attr('class').' warning') if $data->{private} && !$args{contest}; |
3b69df7a MG |
224 | }; |
225 | my $iter = sub { | |
226 | my ($data, $div) = @_; | |
227 | $div->attr(id => $data); | |
228 | $div->find('h2')->replace_content(ucfirst $data); | |
caafa703 | 229 | $div->find('tbody')->find('tr')->iter3($args{$data}, $titer); |
3b69df7a MG |
230 | }; |
231 | $tree->fid('beginner')->iter3([grep {$args{$_}} qw/beginner easy medium hard/], $iter); | |
89d8eeb7 | 232 | $tree->fid('open-alert')->detach unless $args{contest}; |
3b69df7a MG |
233 | } |
234 | ||
235 | sub process_log_entry { | |
236 | my ($tree, %args) = @_; | |
435a869c MG |
237 | $tree->fid('problem')->namedlink(@args{qw/problem problem_name/}); |
238 | $tree->fid('owner')->namedlink(@args{qw/owner owner_name/}); | |
239 | $tree->fid('source')->namedlink("$args{id}.$args{extension}", sprintf '%.2fKB', $args{size}/1024); | |
240 | if ($args{contest}) { | |
241 | $tree->fid('contest')->namedlink(@args{qw/contest contest_name/}); | |
242 | $tree->fid('problem')->find('a')->edit_href(sub {$_.="?contest=$args{contest}"}); | |
243 | } else { | |
244 | $tree->fid('contest')->left->detach; | |
245 | $tree->fid('contest')->detach; | |
246 | } | |
247 | ||
3b69df7a MG |
248 | $args{errors} ? $tree->fid('errors')->find('pre')->replace_content($args{errors}) : $tree->fid('errors')->detach; |
249 | my $iter = sub { | |
250 | my ($data, $tr) = @_; | |
251 | $data->{time} = sprintf '%.4fs', $data->{time}; | |
252 | $tr->defmap(class => $data); | |
253 | $tr->fclass('result_text')->attr(class => "r$data->{result}") | |
254 | }; | |
e1fab7d7 MG |
255 | $tree->fclass('result_text')->replace_content($args{result_text}); |
256 | $tree->fclass('result_text')->attr(class => "r$args{result}"); | |
435a869c | 257 | $args{results} ? $tree->fid('results')->find('tbody')->find('tr')->iter3($args{results}, $iter) : $tree->fid('results')->detach; |
0f67fb90 | 258 | $tree->fid('no_results')->detach if $tree->fid('results') || $tree->fid('errors'); |
3b69df7a MG |
259 | } |
260 | ||
261 | sub process_log { | |
262 | my ($tree, %args) = @_; | |
263 | my $iter = sub { | |
264 | my ($data, $tr) = @_; | |
265 | $tr->fclass('id')->namedlink($data->{id}); | |
266 | $tr->fclass('problem')->namedlink($data->{problem}, $data->{problem_name}); | |
7e158d3c | 267 | $tr->fclass('problem')->find('a')->edit_href(sub{$_ .= "?contest=$args{args}{contest}"}) if $args{args}{contest}; |
8d690af5 MG |
268 | $tr->fclass('contest')->namedlink($data->{contest}, $data->{contest_name}) if $data->{contest}; |
269 | $tr->fclass('contest')->replace_content('None') unless $data->{contest}; | |
3b69df7a | 270 | $tr->fclass('date')->replace_content(ftime $data->{date}); |
93ed6f84 | 271 | $tr->fclass('source')->namedlink("$data->{id}.$data->{extension}", sprintf "%.2fKB %s", $data->{size}/1024, Plack::App::Gruntmaster::FORMAT_EXTENSION()->{$data->{format}}); |
3b69df7a MG |
272 | $tr->fclass('owner')->namedlink($data->{owner}, $data->{owner_name}); |
273 | $tr->fclass('result_text')->replace_content($data->{result_text}); | |
274 | $tr->fclass('result_text')->attr(class => "r$data->{result}"); | |
a33e01dd | 275 | $tr->find('td')->attr(class => $tr->find('td')->attr('class').' warning') if $data->{private}; |
3b69df7a MG |
276 | }; |
277 | $tree->find('table')->find('tbody')->find('tr')->iter3($args{log}, $iter); | |
fddf958b MG |
278 | $args{next_page} ? $tree->fclass('next')->namedlink($args{next_page}, 'Next') : $tree->fclass('next')->detach; |
279 | $args{previous_page} ? $tree->fclass('previous')->namedlink($args{previous_page}, 'Previous') : $tree->fclass('previous')->detach; | |
4a3952b2 MG |
280 | for my $cls (qw/next previous/) { |
281 | my $elem = $tree->fclass($cls); | |
282 | next unless $elem; | |
283 | delete $args{args}{page}; | |
418101af | 284 | my $str = join '&', map { $_ . '=' . $args{args}{$_} } keys %{$args{args}}; |
8678e0dd | 285 | $elem->find('a')->edit_href(sub{s/$/&$str/}) if $str; |
4a3952b2 | 286 | } |
3b69df7a MG |
287 | $tree->fclass('current')->replace_content("Page $args{current_page} of $args{last_page}"); |
288 | } | |
289 | ||
290 | sub process_st { | |
291 | my ($tree, %args) = @_; | |
292 | $args{problems} //= []; | |
293 | my $pbiter = sub { | |
294 | my ($data, $th) = @_; | |
295 | $th->attr(class => undef); | |
ebca729d | 296 | $th->namedlink(@$data); |
b7aa9f38 | 297 | $th->find('a')->edit_href(sub{s/$/?contest=$args{args}{contest}/}); |
3b69df7a MG |
298 | }; |
299 | $tree->fclass('problem')->iter3($args{problems}, $pbiter); | |
300 | my $iter = sub { | |
301 | my ($st, $tr) = @_; | |
302 | $tr->set_child_content(class => 'rank', $st->{rank}); | |
303 | $tr->set_child_content(class => 'score', $st->{score}); | |
dc7e3b7c | 304 | $tr->fclass('user')->namedlink($st->{user}, $st->{user_name}); |
3b69df7a | 305 | my $pbscore = $tr->fclass('pbscore'); |
3b69df7a MG |
306 | $pbscore->iter($pbscore => @{$st->{scores}}); |
307 | }; | |
308 | $tree->find('tbody')->find('tr')->iter3($args{st}, $iter); | |
309 | } | |
645cfb7d MG |
310 | |
311 | sub process_ed { | |
312 | my ($tree, %args) = @_; | |
42243f04 | 313 | $tree->content_handler(editorial => literal $args{editorial}); |
645cfb7d MG |
314 | my $iter = sub { |
315 | my ($data, $div) = @_; | |
316 | $div->set_child_content(class => 'value', $data->{value}); | |
317 | $div->set_child_content(class => 'solution', literal $data->{solution}); | |
318 | $div->fclass('problem')->namedlink($data->{id}, $data->{name}); | |
319 | }; | |
c7f959c0 | 320 | my @pb = map { @{$args{$_} // []} } qw/beginner easy medium hard/; |
645cfb7d MG |
321 | $tree->fclass('well')->iter3(\@pb, $iter); |
322 | } | |
4b3f09fe MG |
323 | |
324 | 1; | |
325 | __END__ |