Source of keyboard.plp

<(common.inc.plp)><:

my $mode = lc($Request || 'keyboard');
my $include = "$mode.eng";

my $info = eval { Data($include) } || {};
$mode = $info->{title} // $mode;

Html({
	title => "\L$mode\E keyboard cheat sheet",
	version => $info->{version} || '0.1',
	description => $info->{description} //
		["Keyboard cheat sheet for the default controls of $mode."],
	keywords => [@{ $info->{keywords} // [] }, qw'
		sheet cheat reference overview keyboard control commands shortkey
	'],
	stylesheet => [qw( light dark circus mono red )],
	keys => 1,
	data => ["$include.inc.pl"],
});

%{$info} or Abort(
	"Requested keyboard <q>$mode</q> not available",
	'404 request not found',
);

say "<h1>$mode cheat sheet</h1>";
say "<p>$_</p>" for $info->{intro} // ();
say "<h2>", $info->{mode}->{''}, " (default)</h2>"
	if $info->{mode} and %{ $info->{mode} } > 1;

use Shiar_Sheet::Keyboard 2.08;
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, $info->{rows});
$keys->print_legends(\%get);

sheet.shiar.nl/source.plp version 1.3 created by Shiar • AGPLv3