X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9aa3a0089bff9379b25186960929582f16e7b3f4..3aab2658e078a4f424343fb10817f8d0eab9343b:/readline.plp diff --git a/readline.plp b/readline.plp index 019876f..6fc99f5 100644 --- a/readline.plp +++ b/readline.plp @@ -7,7 +7,7 @@ no warnings 'uninitialized'; # save some useless checks for more legible code use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii} -our $VERSION = 'v1.2'; +our $VERSION = 'v1.0'; $header{content_type} = "text/html; charset=$sign{charset}"; @@ -16,8 +16,8 @@ $header{content_type} = "text/html; charset=$sign{charset}"; -readline cheat sheet +readline cheat sheet <: @@ -28,8 +28,8 @@ $header{content_type} = "text/html; charset=$sign{charset}"; ) for keys %styles; our $showkeys = exists $get{keys} && $get{keys} ne '0'; - print "\n" unless $showkeys; - print "\n" + print "\n".'' unless $showkeys; + print "\n".'' if $showkeys and $get{keys} eq 'ghost'; :> @@ -52,7 +52,7 @@ $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{static} || '543'); +$keys->print_rows($get{rows} || '^x=213', [4,3,2]); :> @@ -82,6 +82,10 @@ $keys->print_rows($get{static} || '543');
key<:= $sign{arg} :>
Commands with a dot need a char argument afterwards. +
>v2.0 +
Unavailable before readline version 2.1 (1997). +
bash +
Default assignment in Bash shells, but not common readline.