<(common.inc.plp)><:
my $mode = lc($Request || 'mplayer');
my $include = "$mode.eng";
my $info = eval { Data($include) } || {};
$mode = $info->{title} // $mode;
Html({
title => "\L$mode\E cheat sheet",
version => '1.3',
description => [
"Keyboard cheat sheet for the $mode media player,",
"overviewing the default controls."
],
keywords => [@{ $info->{keywords} // [] }, qw'
sheet cheat reference overview control shortkey keyboard
'],
stylesheet => [qw( light dark circus mono red )],
keys => 1,
data => ["$include.inc.pl"],
});
%{$info} or Abort(
"Requested keyboard $mode
not available",
'404 request not found',
);
say "$mode cheat sheet
";
say "$_
" for $info->{intro} // ();
use Shiar_Sheet::Keyboard 2.08;
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]);
$keys->print_legends(\%get);