normal mode (default)

- -

Esc normal mode - -

- -<: -our %sign; -use Shiar_Sheet::Keyboard; -my $usint = [ - [qw(Ã B Â¢ Ã Ã F G H Ã J Å Ã Âµ Ã Ã Ã Ã Â® Â§ Ã Ã V Ã X Ã Ã)], - [qw(Ã¡ b Â© Ã° Ã© f g h Ã j Å Ã¸ Âµ Ã± Ã³ Ã¶ Ã¤ Â® Ã Ã¾ Ãº v Ã¥ x Ã¼ Ã¦)], - [qw(Ã Ä± Ã Ã° Â´ Ì Ë Ì£ Ë Â½ ï£¿ Ã Â¾ Ë Ã â Å â° / Ë Â¨ â â Ë Â¼ Â¸)], - [qw(Ã¥ â« Ã§ â Â´ Æ Â© Ë ^ â Â° Â¬ Âµ ~ Ã¸ Ï Å Â® Ã â Â¨ â â â Â¥ Î©)], -]; - -my $keys = Shiar_Sheet::Keyboard->new({ - '' => { - map { - my $i = ord($_) - ord('a'); - $_ => ["$usint->[0]->[$i]
$usint->[1]->[$i]"] - } 'a'..'z' - } +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"], }); -$keys->map($get{map}) or undef $get{map}; -$keys->print_rows($get{rows}, [0]); -:> -

$mode

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 "

$mode cheat sheet

"; +say "

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

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

" + if $info->{mode} and %{ $info->{mode} } > 1; -

- - -

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