:
use utf8;
use strict;
use warnings;
no warnings 'qw'; # you know what you doing
no warnings 'uninitialized'; # save some useless checks for more legible code
use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii}
our $VERSION = 'v1.0';
$header{content_type} = "text/html; charset=$sign{charset}";
:>
<:
use Shiar_Sheet::Keyboard;
my $keys = Shiar_Sheet::Keyboard->new({do 'readline.inc.pl'});
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, [4,3,2]);
:>
info
Info command: shows/does something without altering anything.
motion
Move the cursor.
history
Replace contents involving kill ring, undo, or command history.
change
Alter current text (filtering or completion).
delete
Remove text.
misc
Miscellaneous commands.
mode
Additional key functionality (click to view).
key<:= $sign{arg} :>
Commands with a dot need a char argument afterwards.
bash
Default assignment in Bash shells, but not common readline
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 :>