<(common.inc.plp)><: $Request ||= 'altgr/windows'; my $mode = lc $Request; my $include = "keyboard/$mode.eng"; if (-e (my $page = "keyboard/$Request/index.inc.plp")) { Include $page; exit; } my $info = eval { Data($include) } || {}; warn "error in $include: ", @{$@} if ref $@; $mode = $info->{title} // $mode; my $showkeys //= !exists $get{keys} ? undef : ($get{keys} ne '0' && ($get{keys} || 'always')); my @keystyle = ( '', '', !$showkeys ? '' : $showkeys eq 'ghost' ? '' : (), '', ); Html({ title => "\L$mode\E keyboard cheat sheet", version => $info->{version} || '0.1', canonical => -e "$Request.plp" ? "/$Request" : undef, # historic shorthand description => $info->{description} // ["Keyboard cheat sheet for the default controls of $mode."], keywords => [@{ $info->{keywords} // [] }, qw' sheet cheat reference overview keyboard control commands shortkey '], image => $info->{image}, stylesheet => [qw( light dark circus mono red )], data => ["$include.inc.pl"], raw => \@keystyle, }); %{$info} or Abort( "Requested keyboard $mode not available", '404 request not found', ); say "

$mode keyboard

"; say "

" for $info->{intro} // (); say "

", $info->{mode}->{''}, " (default)

" 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->{moderows}, $info->{rows}); { say "

\n"; say '

'; use List::MoreUtils qw( part ); my @gflags = part {/^g\d/} sort keys %{ $keys->{flag} }; say "\t", '

'; $keys->print_legend('legend-types', $gflags[1]); say "\t

\n"; say "\t", '

'; $keys->print_legend('legend-options', $gflags[0]); say ''; say "\t\t", '

keyboard map is ", ($get{map} ? 'set to ' : ''), "$keys->{map}"; say "\t\t
keys are ", "", ($showkeys ? 'always shown' : 'hidden if unassigned'), "", (!defined $showkeys && ' by default'); say "\t\t
default style is ", (defined $get{style} && 'set to '), "$style"; say "\t\t

"; say "\t

\n"; say "

\n"; }