Perlbot/perlbuut-pastebin
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut-pastebin synced 2025-06-07 14:17:26 -04:00
Code Issues Releases Wiki Activity

Sort and proper names

Browse source
This commit is contained in:
Ryan Voots 2017-10-20 15:55:35 -04:00
parent dd10cbe75a
commit dc5c1b44cf
3 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/App/Controller/Paste.pm
View file

@ -88,10 +88,11 @@ sub get_paste {
my ($delay, $evalout) = @_;
$c->stash($row);
$c->stash({language => $c->languages->get_language_hash->{$row->{language}}});
$c->stash({all_langs => $c->languages->get_language_hash});
$c->stash({page_tmpl => 'viewer.html'});
$c->stash({paste_id => $pasteid});
$c->stash({eval => $evalout});
$c->stash({perl_sort_versions => \&{$c->languages->perl_sort_versions}});
$c->stash({perl_sort_versions => \&App::Model::Languages::perl_sort_versions});
$c->render('page');
});

7
lib/App/Model/Languages.pm
View file

@ -61,8 +61,11 @@ sub get_languages {
return \@langs
}
sub perl_sort_languages {
return sort {$langs{$a}//0 <=> $langs{$b}//0} @_;
sub perl_sort_versions {
my @in = @{shift()};
my @ranks = map {$langs{$_}{rank}} @in;
my @ret = sort {$langs{$a}{rank} <=> $langs{$b}{rank}} @in;
return @ret;
}
1;

2
templates/viewer.html
View file

@ -88,7 +88,7 @@
<table id="eval" class="col-md-8">
<tr><th>Language</th><th>Output</th></tr>
[% FOR lang IN perl_sort_versions(eval.keys) %]
<tr><td style="width: 1px; white-space: nowrap; padding-right: 5em;">[% lang %]</td><td><pre>[% eval.$lang | html %]</pre></td></tr>
<tr><td style="width: 1px; white-space: nowrap; padding-right: 5em;">[% all_langs.$lang.description %]</td><td><pre>[% eval.$lang | html %]</pre></td></tr>
[% END %]
</table>
[% END %]