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

Something weird ind ev

Browse source
This commit is contained in:
Ryan Voots 2017-10-20 15:26:30 -04:00
parent e1f4bf3cd6
commit d235842ebc
4 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -91,6 +91,7 @@ sub get_paste {
$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->render('page');
});

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

@ -31,6 +31,13 @@ my @langs = (
);
# Add a sorting rank to each language
for my $i (0..$#langs) {
my $r = $i;
$r = -1 if ($langs[$i]{name} eq 'perl'); # specially handle blead as being top dog
$langs[$i]{rank} = $r;
}
my %langs = (
map {$_->{name} => $_} @langs,
);
@ -49,4 +56,8 @@ sub get_languages {
return \@langs
}
sub perl_sort_languages {
return sort {$langs{$a}//0 <=> $langs{$b}//0} @_;
}
1;

2
templates/editor.html
View file

@ -210,7 +210,7 @@
//safely delete all bindings
var save_keys={};
Object.keys(editor.keyBinding.$defaultHandler.commandKeyBinding)\
Object.keys(editor.keyBinding.$defaultHandler.commandKeyBinding)
.filter((value) => value.match(/(?:(?:backspac|hom)e|d(?:elete|own)|(?:righ|lef)t|end|up)/))
.forEach((key) => save[key] = editor.keyBinding.$defaultHandler.commandKeyBinding[key]);

2
templates/viewer.html
View file

@ -87,7 +87,7 @@
<div class="col-md-1"></div>
<table id="eval" class="col-md-8">
<tr><th>Language</th><th>Output</th></tr>
[% FOR lang IN eval.keys.sort %]
[% 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>
[% END %]
</table>