<(common.inc.plp)><: my $mode = $Request eq 'mpv' ? $Request : 'MPlayer'; my $include = "\L$mode.eng.inc.pl"; Html({ title => "\L$mode\E cheat sheet", version => '1.1', description => [ "Keyboard cheat sheet for the $mode media player,", "overviewing the default controls." ], keywords => [qw' mpv mplayer mplayer2 media player video audio sheet cheat reference overview control shortkey keyboard '], stylesheet => [qw( light dark circus mono red )], keys => 1, data => [$include], }); say "

$mode cheat sheet

"; say ''; use Shiar_Sheet::Keyboard 2; my $info = do $include or die $@; my $keys = Shiar_Sheet::Keyboard->new($info); $keys->map($get{map}) or undef $get{map}; $keys->print_rows($get{rows}, [1,0]); $keys->print_legends(\%get);