X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FPlack%2FApp%2FGruntmaster%2FHTML.pm;h=daf739baf65aa85e025b60d01dede6492219ac66;hb=7316610a61e82018373d7671f204b582fb19adeb;hp=ebbc145e22cd3bd9f328c3e3a8da27b749d9e9c8;hpb=cc11db2f3c4006b4f3d3a5a5ab58eb30bf907441;p=plack-app-gruntmaster.git diff --git a/lib/Plack/App/Gruntmaster/HTML.pm b/lib/Plack/App/Gruntmaster/HTML.pm index ebbc145..daf739b 100644 --- a/lib/Plack/App/Gruntmaster/HTML.pm +++ b/lib/Plack/App/Gruntmaster/HTML.pm @@ -9,8 +9,17 @@ use HTML::TreeBuilder; use POSIX qw//; use Data::Dumper qw/Dumper/; +my $optional_end_tags = {%HTML::Tagset::optionalEndTag, tr => 1, td => 1, th => 1}; + sub ftime ($) { POSIX::strftime '%c', localtime shift } -sub literal ($) { HTML::Element::Library::super_literal shift // '' } +sub literal ($) { + my ($html) = @_; + return unless $html; + my $b = HTML::TreeBuilder->new; + $b->ignore_unknown(0); + $b->parse($html); + HTML::Element::Library::super_literal $b->guts->as_HTML(undef, undef, $optional_end_tags); +} sub HTML::Element::edit_href { my ($self, $sub) = @_; @@ -62,6 +71,7 @@ sub render_article { my ($art, $lang, %args) = @_; $lang //= 'en'; my $title = read_file "a/$art.$lang.title"; + chomp $title; my $meat = read_file "a/$art.$lang"; _render('skel', $lang, title => $title , meat => $meat, %args) } @@ -76,11 +86,16 @@ sub _render { $_->detach for $tree->look_down(static => $args{static} ? 'no' : 'yes'); $_->attr('static', undef) for $tree->look_down(sub {$_[0]->attr('static')}); $_->attr('smap', undef) for $tree->look_down(sub {$_[0]->attr('smap')}); - $tree->as_HTML; + $tree->as_HTML(undef, undef, $optional_end_tags); } +my $logo = read_file 'mclogo.svg'; +$logo =~ y/\n//d; +$logo =~ s/(\s+)/ /g; + sub process_skel { my ($tree, %args) = @_; + $tree->fid('logo')->replace_with(HTML::Element::Library::super_literal $logo); $tree->content_handler( title => $args{title}, content => literal $args{meat}); @@ -166,10 +181,7 @@ sub process_pb_entry { if ($args{contest_stop}) { $tree->fid('solution')->detach; $tree->fid('solution_modal')->detach; - my $score = $tree->fid('score'); - $score->attr('data-start' => $args{open_time}); - $score->attr('data-stop' => $args{contest_stop}); - $score->attr('data-value' => $args{value}); + $tree->fid('score')->replace_content($args{value}); $tree->fid('countdown')->attr('data-stop' => $args{contest_stop}); } else { $tree->fid('job_log')->edit_href(sub{$_ .= "&private=$args{private}"}) if $args{private};