<(common.inc.plp)><:
my $mode = $Request eq 'mpv' ? $Request : 'MPlayer';
-my $include = "\L$mode.eng.inc.pl";
+my $include = "\L$mode.eng";
Html({
title => "\L$mode\E cheat sheet",
- version => '1.1',
+ version => '1.2',
description => [
"Keyboard cheat sheet for the $mode media player,",
"overviewing the default controls."
'],
stylesheet => [qw( light dark circus mono red )],
keys => 1,
- data => [$include],
+ data => ["$include.inc.pl"],
});
say "<h1>$mode cheat sheet</h1>";
say '';
use Shiar_Sheet::Keyboard 2;
-my $info = do $include or die $@;
+my $info = Data($include);
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [1,0]);