normal mode (default)

+$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, +}); -

Esc normal mode - -

+%{$info} or Abort( + "Requested keyboard $mode not available", + '404 request not found', +); -<: -our %sign; -use Shiar_Sheet::Keyboard 2; -my $usint = [ - [ 'a' .. 'z'], - [qw(Ã B Â¢ Ã Ã F G H Ã J Å Ã Âµ Ã Ã Ã Ã Â® Â§ Ã Ã V Ã X Ã Ã)], - [qw(Ã¡ b Â© Ã° Ã© f g h Ã j Å Ã¸ Âµ Ã± Ã³ Ã¶ Ã¤ Â® Ã Ã¾ Ãº v Ã¥ x Ã¼ Ã¦)], - [qw(Ã Ä± Ã Ã° Â´ Ì Ë Ì£ Ë Â½ ï£¿ Ã Â¾ Ë Ã â Å â° / Ë Â¨ â â Ë Â¼ Â¸)], - [qw(Ã¥ â« Ã§ â Â´ Æ Â© Ë ^ â Â° Â¬ Âµ ~ Ã¸ Ï Å Â® Ã â Â¨ â â â Â¥ Î©)], -]; +say "

$mode keyboard

"; +say "

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

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

" + if $info->{mode} and %{ $info->{mode} } > 1; -my $keys = Shiar_Sheet::Keyboard->new({ - def => { - '' => { - map { $_ => [''] } @{ $usint->[0] } - }, - }, - key => { - map { - my $i = ord($_) - ord('a'); - $_ => ["$usint->[1]->[$i]
$usint->[2]->[$i]"] - } 'a'..'z' - }, -}); +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}, [0]); -:> -

'; -

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

info -: Info command: shows/does something without altering anything. -
motion -
positioning -: Other movement (jumps, window (re)positioning). -
command -: Direct action command. -
ins mode -: Enters Insert or Replace mode. -
mode -: Enters a different mode. -
vis mode -: Enters Visual or Select mode. -
key cmd -: Additional key commands (click for overview). -

+ say "\t", '

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

\n"; -

- + say "\t", '

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

keyboard map is - <:= $get{map} ? 'set to ' : '' :><:= $keys->{map} :> -
keys are - <:= $showkeys ? 'always shown' : 'hidden if unassigned' :><:= - !exists $get{keys} && ' by default' :> -
default style is - <:= defined $get{style} && 'set to ' :><:= $style :> -

+ 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 "